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Sehr geehrte, liebe Leserin! 
Sehr geehrter, lieber Leser! 
Sehr geehrte, liebe Programmiererin! 
Sehr geehrter, lieber Programmierer! 


Sie halten das Buch "BASIC Programme' in Händen und wollen sich 
vielleicht erst einmal ein schnelles Urteil über dieses Buch 
erlauben. Dazu haben Sie sicherlich einen Blick ins Inhaltsver- 
zeichnis geworfen ... gut so ... und nun wollen Sie noch schnell 
die Anrede überfliegen ... und dann geht es ab ins stille Käm- 
merlein zum Programmieren bzw. zum Programm eintippen in den 
Schneider CPC464!? 


Lassen Sie mich bitte trotzdem noch für ein paar Worte zur 


Sprache kommen, bevor es richtig losgeht. 


Hinter dieser Programmsammlung steckt ein anderes Konzept als 
man vielleicht auf den ersten Blick ahnen könnte. Diese Pro- 
grammsammlung besteht nämlich nicht nur aus Programmen, nein 
auch aus über vierzig Seiten Text. Nicht daß mir die Programme 
ausgegangen wären oder mir die Ideen fehlten (würde ich gleich 
alles veröffentlichen, hätte dieses Buch knapp 400 Seiten!), 
nein, Sie sollen meiner Meinung nach nicht nur einfach tippen, 
tippen und nochmals tippen ... nein, Sie sollen auch etwas über 
Ihren CPC dazulernen. 


Zwar ist nicht Programmzeile für Zeile genauestens erklärt, 
dafür fehlt der Platz und vielleicht auch Ihre Ausdauer. Aber 
auf interessante Details wird im Vortext hingewiesen, und zum 
großen Teil sind die Programme ja auch noch mit REM-Zeilen zur 
Erläuterng angefüllt. 


Auch inhaltlich liegt der Schwerpunkt mehr auf der nützlichen 
Anwendungsseite, sei es, daß Sie Musik, Grafik oder Text editie- 
ren wollen, sei es, daß Sie planen können, Ihre Schallplatten 
oder die Bundesligaergebnisse gemeinsam mit dem CPC zu verwal- 
ten. Schließlich liegt noch ein weiterer Schwerpunkt in dieser 
Programmsammlung: Sie sollen ein klein wenig davon einen Ein- 


druck bekommen, wie Ihr CPC "innerlich' arbeitet. Programme wie 


ER 


"Disassembler' und "Variablenrefernzliste' sind nur zwei Bei- 


spiele dafür. 


Auf jeden Fall, und lassen Sie mich damit schließen, sollen Sie 
Spaß daran verspüren, in die geheimnisvolle Welt der Computer 
und des CPC im besonderen immer tiefer einzudringen und viel- 
leicht sogar durch die Programmsammlung selbst zum kleinen Pro- 
grammierer aufzusteigen. 


Noch einmal: Viel Freude und viel Spaß an der Arbeit mit diesem 
DATA BECKER-Buch wünscht Ihnen der Autor von Programmen und Text. 


Speicher 1 


Schauen wir uns das Resultat dieses Programms am Bildschirm an, 
so stellen wir fest, daß der Speicher, dessen Inhalt wir mit dem 
Befehl "PEEK' abfragen nicht überall leer = '0' ist. 


Zwar erscheinen auf dem Bildschirm nur anscheinend wirre Zahlen, 
jedoch werden wir gleich feststellen, daß sich hinter diesen 
Zahlen zum Teil sinnvolle Buchstaben und Zeichen verbergen. 
Hierzu ein Experiment: 


Geben Sie folgendes in Ihren CPC ein: "PRINT ASC('"'!")" (ENTER) 
Ergebnis: 33. Das heißt: Hinter dem Ausrufungszeichen verbirgt 
sich für den Computer die Zahl 33. Probieren wir es andersherunm: 
Geben Sir ein: "PRINT CHR$(33)' (ENTER) 

Ergebnis: '!'. Damit haben wir den Computer dazu aufgefordert, 
die Zahl 33 wieder in ein Zeichen umzuwandeln. Das Ergebnis von 


Zahl 33 ist unser Ausrufungszeichen! 


So können wir nun auch unser Zahlenmeer aus Programm Speicher 1 
zu deuten lernen. Geben Sie zur Überprüfung gleich anschließend 
bitte das Programm "Speicher 2' ein. 


Hinweis zum Gebrauch von Programm "Speicher 1': 

Anfangs- und Endspeicheradresse sollten nicht weiter als 150 
Zeichen auseinanderliegen; so bekommen wir in der Darstel- 
lungsweise alle gewünschten Daten auf eine Bildschirmseite. 
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REM Untersuchung des Speichers 1 
REM CPC454 Basic Programme 
REM Copyright 1984 DATA BECKER % 
Rainer Lueers 
INK 8,1:INK 1,24:INK 2,1,24:effekt=2: 
mal=i 
MODE 1 
REM Darstellungsraum eingrenzen 
INFUT "Anfangsadresse eingeben "za 
INPUT "Endadresse eingeben ";e 
IF ea OR e>65535 OR afg OR a>65535 T 
GOSUB 219:G0T0 Sg 
PRINT 
REM Ausgabe des Speicherinhalts im 
eingegrenzten Darstellungsraum durch 
Zahlen 


128 FOR n=a TO e 

1328 FRINT PEEK(n); 

148 NEXT n 

158 PRINT 

1694 PRINT 

178 INPUT "Wollen Sie weitere Teile des 
Speichers untersuchen ( /N) " 

;f$ 

1884 #$=UFPER$ (f$) 

198 IF f$<>"N" THEN GOTO 18 

za@ END 

21@ FEN effekt:PRINT:FRINT TAB(12) "Fals 

che Eingabe!" 

2228 PEN normal :6G0SUR 232: RETURN 

238 PRINT:PRINT TAB(7) "<RBitte eine Tast 

e druecken:" 

249 #$=INKEY$: IF #$="" THEN GOTO 24% 


2528 RETURN 
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Speicher 2 


Nachdem Sie dieses Programm abgetippt und es mit 'RUN' gestartet 
haben passiert folgendes: Was auch immer Sie tun, entweder 
passiert überhaupt nichts oder es passiert etwas Unvorhergese- 
henes (der Bildschirm wird gelöscht, der Mode wird verändert, 
PEN und PAPER ändern sich ...). Warum dies? 


Wie schon in anderen Programmen dieser Sammlung aufgeführt: Es 
gibt sinnvoll direkt darstellbare Zeichen ('CHR$(32) = Leerzei- 
chen bis 'CHR$(126)' = Schlangenlinie bzw. bis 'CHR$(255)' = 
Grafikzeichen), es gibt aber auch andere CHR$-Zeichen, die sich 
nicht so eindeutig im Bild festhalten lassen ('CHR$(2)' = 
Textcursor ausschalten bzw. 'CHR$(7)' = Klingel ertönen lassen - 
Einzelheiten siehe im Handbuch Kapitel 9). 


Also müssen wir noch ein drittes Programm schreiben, um nur die 
Zahlen als Zeichen auf dem Bildschirm entsprechend darzustellen, 
die in diesem Zusammenhang auch sinnvoll darstellbar sind. Dies 
geschieht nun mit einigen Programmerweiterungen in Programm 
"Speicher 3'. 


Hinweis zum Gebrauch von Programm "Speicher 2': 

Wenn auf dem Bildschirm nun nichts rechtes mehr zu erkennen ist, 
Sie aber das eingegebene Programm weiterbenutzen wollen, so 
heißt es nun tüfteln: Schlagen Sie Ihr Handbuch Kapitel 9 auf 
und versuchen Sie die entsprechenden Störfaktoren durch Eingabe 


von "PRINT" und dem entsprechenden 'CHR$('-zeichen zu loeschen. 


ge) 


18 REM Untersuchung des Speichers Z 

24 REM CFC464 Basic Frogramme 

34 REM Copyright 19984 DATA BECKER % 

Rainer Lueers 

48 INK G,1:INEH 1,24:1INK 2,1,24:effekt=2: 

normal=1 

Sg MODE 1 

&2 REM Darstellungsraum eingrenzen 

7a INPUT "Anfangsadresse eingeben ";a 

83 INPUT "Endadresse eingeben ";e 

98 IF ea OR er55535 OR af OR a>65535 T 

HEN GOSUR ?219:6G0T0 58 

198 PRINT 

112 REM Ausgabe des Speicherinhalts im 
eingegrenzten Darstellungsraum durch 
Zahlen 

128 FOR n=a TO e 

138 FRINT CHR$ (PEEK(n)); 


149 NEXT n 

152 FRINT 

158 PRINT 

178 INPUT "Wollen Sie weitere Teile des 
Speichers untersuchen ( /N) " 

t$ 


188% fF$=UFPER&E (f$) 

194 IF #$<>"N" THEN GOTO 1% 

za END 

218 FEN effekt:PRINT:PRINT TAR(12) "Fals 
che Eingabe!" * 

22@ PEN normal :GOSUR 238: RETURN 

238 FRINT:FRINT TAR(7) ":Bitte eine Tast 
e druecken?:" 

248 #$=INKEY$: IF f$="" THEN GOTO 24% 

253 RETURN 


Speicher 3 
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Mit Eingabe dieses Programms werden gleich zwei Fliegen mit 
einer Klappe geschlagen: Einerseits erscheint die Bildschirmwie- 
dergabe des Speicherinhalts nun geordneter (jeweils Anfangs- 
adresse, Inhalte der Anfangsadresse und der folgenden sieben 
Bytes sowie CHR$-Ausdruck der acht Bytes, alles zusammen in 
einer Bildschirmzeile), außerdem werden jetzt nur noch die 
sinnvollen "'CHR$(' dargestellt (zwischen 32 = Leerzeichen und 
126 = Schlangenlinie). Für "nicht ohne weiteres sichtbare CHR$' 
haben wir einfach 'CHR$(46)' = '.' zur Darstellung herangezogen. 


Sie können wählen: entweder geben Sie die Anfangsadresse ein und 
drücken anschließend lediglich die (ENTER)-Taste; so werden nur 
die Anfangsadresse und die Inhalte der entsprechenden acht Bytes 
samt CHR$-Darstellung ausgedruckt oder um die Speicherinhalte 
auch über eine Zeile hinaus abbilden zu können, gilt es nach dem 
erstmaligen Drücken der (ENTER)-Taste sofort anschließend (wäh- 
rend des Bildschirmaufbaus) irgendeine andere Taste mit Wieder- 
holfunktion (z.B. die Leertaste) andauernd niederzudrücken. So 
erscheinen zu je acht Bytes pro Zeile die sich anschließenden 


Speicherinhalte auf dem Monitor. 


Schauen wir uns doch einmal an, wo unser BASIC-Programm "Spei- 
cher 3' geblieben ist. Beim CPC wie auch bei jedem anderen 
Computer werden Befehle zum Teil nur als einzelne Zahlen = Token 
abgespeichert, hingegen bleiben Worte, die hinter REM-Anweisun- 
gen stehen, vollkommen erhalten. Geben Sie z.B. als Anfangs- 
adresse '1008' ein ... rechts im CHR$-Bereich müßten Sie nun das 
Wörtchen 'jeweils' entdecken ... schauen wir in das Programmli- 
sting -) siehe Zeile 140: 


'140 REM Die Bildschirmzeile wird mit 
jeweils acht Bytes gefuellt' 


. das funktioniert allerdings nur, wenn Sie 


das Programm Zeile für Zeile genau so wie im Buch abgetippt 


haben, ohne auch nur ein Leerzeichen vergessen zu haben! 


0: 


Geben wir '1008' als Anfangsadresse ein und drücken unverzüglich 
eine Taste mit Wiederholfunktion z.B. die Leertaste, so werden 


uns noch weitere Bestandteile aus unserem Programm "Speicher 3' 


begegnen. 


Hinweis zum Gebrauch des Programms "Speicher 3': 

Wie Sie sicherlich bemerkt haben, wird hier als Zahlsystem nicht 
das uns vertraute Dezimalsystem (Zahlen aus 0 bis 9 zusammenge- 
setzt) sondern das Hexadezimalsystem (Zahlen aus 0 bis F zusam- 
mengestzt) angewandt. Dies hat folgende Gründe: Einerseits ist 
das Hexadezimalsystem "das' System der Hacker und Maschinen- 
sprachfreaks ... so wollen wir es hier als "'Speicherdurchfor- 
ster', was gleichbedeutend mit "Hacker sein soll, auch anwenden! 
Andererseits läßt sich auf 40 Spalten mit dem Dezimalsystem 
nicht so viel Information unterbringen wie mit Hilfe des Hexade- 


zimalsystems ('255' Dez. = 'FF' Hex. bzw. '65535' Dez. = 'FFFF' 
Hex.). 


Dezimalumwandlung in Hex läßt sich mit dem CPC sehr leicht mit 
dem Befehl 'HEX$(' in die Tat umsetzen z.B. "PRINT HEX$(65535)', 


Ergebnis = 'FFFF'. 
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18 REM Untersuchung des Speichers 3 

28 REM Untersuchung des Speichers mit 
PEEHF und CHR$( in uebersichtli- 
cher Form 

Z3@ REM CFC454 Basic Frogramme 

4A REM Copyright 1984 DATA BECKER 4 

Rainer Lueers 

58 INK 8,1:INK 1,24:1INK 2,1,24:effekt=2: 

normal=1 

64 KEY DEF 18,1 

78 MODE 1 

843 REM Darstellungsraum eingrenzen 

93 INPUT "Anfangsadresse eingeben ";a 

1d@ IF aA OR a>65535 THEN GOSUB 339:GOT 

0 78 

11d a$s=HEX$(a,4) 

1285 REM Die naechsten Zeilen helfen, 
einen optimalen RBildschirmaus- 
druck mit 48 Zeichen/Zeile zu 
ermoeglichen 

1328 FRINT a$;" "; 

1429 REM Die Bildschirmzeile wird mit 
jeweils acht Eytes gefuellt 

1524 FOR z=@i TO 7 

16% zz=PEEK(atz):zz$=HEX$(zz,2) 

178 FRINT zz$;" "; 

18@# NEXT z 

178 REM Ausdruck der Charakterstrings 
bei besonderer Reachtung, wenn 
der FEEkwert <32 bzw. }126 ist 

Zö2ß FOR z=A TO 7 

Zi1d zz=atz 

228 zz=PEEK (zz 

229 IF zz£32 THEN zz=46 

248 IF zz>126 THEN zz=46 

258 FRINT CHR$ (zz); 

26@ NEXT z 

2724 PRINT 


zZ88 a=sa+t8 


- 12 - 


2er 
aa 
ai 
328 
E37] 
che 
34 
358 


a$=INKEY$ 

IF a$="" THEN GS0TO 9748 

GOTO 11@ 

END 

PEN effekt:PRINT:FRINT TAB{12) "Fals 
Eingabe!" 

FEN normal :GOSUR 354: RETURN 
FRINT:FRINT TAR(7) "<Bitte eine Tast 


e druecken>" 


51-77] 
378 


F$=INEEY$: IF f$="" THEN GOTO I69 
RETURN 
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Speicher 4 


Bisher haben wir den Speicher durchsucht und dabei zum Teil nur 
Zahlen (Speicher 1), wirre Zeichen (Speicher 2) oder aber gar 
schließlich beides in geordneter Form auf dem Bildschirm erzeugt 
(Speicher 3). Beim Listing von "Speicher 3' konnte im Vergleich 
der linken zur rechten Bildschirmseite deutlich werden, daß 
wahrlich unser BASIC-Programm nur aus Zahlen besteht, die erst 
im Nachhinein wieder vom CPC in Buchstaben und Zeichen umgewan- 
delt wurden. 


Hierzu muß man wissen, wie der Computer Daten und Programme 
abspeichert: Um Speicherplatz zu sparen, werden BASIC-Befehle 
nach der Eingabe durch (ENTER) in Abkürzungen umgewandelt, die 
sogenannten Tokens (siehe Anhang). So verbraucht der Befehl 
"PRINT" nicht fünf Bytes (da fünf Buchstaben), sondern lediglich 
ein Byte. 


Schreiben wir jedoch in eine REM-Zeile 'PRINT' oder geben in 
eine Programmzeile 'PRINT "PRINT"' ein, so wird das in diesem 
Fall nicht als Befehl zu interpretierende 'PRINT' Buchstabe für 
Buchstabe abgespeichert, d.h. hierzu werden wie zu erwarten fünf 
Speicherplätze = fünf Bytes in unserem CPC benötigt. 


Suchen wir nach dem Vorhandensein irgendwelcher ausgeschriebenen 
Wörter im BASIC-Programm, so kann dies sehr lange dauern, bei 
65535 Speicherplätzen ähnlich einer Suche nach der Stecknadel im 
Heuhaufen. Also müssen wir systematischer vorgehen! 


Das Programm "Speicher 4' hilft uns dabei erheblich in mehreren 
Stufen weiter. Sie geben ein Wort mit bis zu sechs Buchstaben 
ein und instruieren den Computer, wo er nach diesem Wort im 
Speicher suchen soll. Soll er im ganzen Speicher suchen, dauert 
es - bald - eine Ewigkeit. Soll er in einem begrenzten von Ihnen 
zu bestimmenden Speicherplatzrahmen suchen, dauert es dem- 
entsprechend lang oder kurz. Als Ergebnis bekommen Sie in jedem 
dieser beiden Fälle, vorausgesetzt der Suchbegriff läßt sich 
auffinden, die Speicherplatzstelle genannt. Spaßeshalber können 


4a 


Sie dann durch 'POKE' die angegebene Stelle, (kleiner als 127, 
größer als 31) in Ihrem Programm direkt über die entsprechende 
Speicherstelle ändern. Ein Beispiel: 


In Zeile 80 steht das Wörtchen 'Laenge'. Zuerst suchen wir uns 
die entsprechende Speicherstelle heraus. Wie? Programm starten 
mit 'RUN', Zeichen eingeben = "'Laenge' (ENTER), im ganzen Spei- 
cher suchen lassen = 'N' auf die naechste Frage hin eintippen 
(ENTER). Nach kurzer Zeit erscheint auf dem Bildschirm: "'Laenge 
an Speicherstelle 682 gefunden'. Kommt bei Ihnen eine etwas 
andere Zahl heraus, so ist das gar nicht schlimm. Wir nennen die 
gefundene Zahl "ZAHL!" (in unserem Fall 'Zahl' = 682). Schauen 
wir mal nach, was bei "ZAHL' im Speicher steht: "PRINT 
PEEK(ZAHL)" (Bitte nicht "ZAHL" eintippen, sondern die Zahl an 
dieser Stelle verwenden, die Ihr CPC vorhin ausgegeben hat - bei 
mir also: "PRINT PEEK(682)'). Ergebnis? '76'! Und was bedeutet 
in unserer Sprache die Zahl 76? "PRINT CHR$(76)' = 'L'! 


Also die Zahl 76 steht für den ersten Buchstaben unseres vorhin 
gesuchten Wortes 'Laenge'. Listen wir Zeile 80, so steht dort 
'Laenge'. Mit 'POKE ZAHL,andere Zahl als 76' werden wir nun das 
'L' von Laenge in unserem BASIC-Programm z.B. in ein 'G' verwan- 
deln. Nur welche Zahl steht beim Computer für den Buchstaben 
'c'? Ganz einfach rauszukriegen über den Befehl 'ASC('. Also: 
"PRINT ASC("G")' = 71. Nun einfach eingeben 'POKE ZAHL,71' und 
anschließend noch einmal Zeile 80 listen -) 'Laenge' wurde zu 
"Gaenge'! 


So kann man ein klein wenig mehr über die Abspeicherung von 
BASIC-Programmen dazulernen und vielleicht dadurch noch einge- 
hender die Komplexität eines Computers wie des CPC erahnen 
lernen (BASIC ist wohlgemerkt erst das Endprodukt zahlreicher 
Verknüpfungen). 


Aber noch eine weitere Dimension wird mit dem Programm "Speicher 
4' erschlossen: Die Abspeicherung der Zeilennummer. Starten Sie 
hierfür noch einmal das Programm mit 'RUN', geben wieder den 
Suchbegriff "Laenge' (bzw. nun 'Gaenge') ein und lassen im 
'P=Programm' danach suchen. Nach kurzer Zeit steht nicht nur die 


= 5. 


entsprechende Speicherstelle wieder auf dem Bildschirm, nein 


auch die entsprechende Zeilennummer in unserem BASIC-Programnm. 


Dieses Errechnen geht verhältnismäßig einfach vor sich ... wenn 
man weiß wie. Jedes CPC-BASIC-Programm beginnt im Normalfall bei 
der Speicherstelle 368. In Speicherstelle 368 und 369 steht die 
Längenangabe der ersten Zeilennummer unseres Programms ('PRINT 
PEEK(368)' = 35; "PRINT PEEK(369)' = 0). Die Errechnung geht 
folgendermaßen vor sich: "PRINT PEEK(368) + (PEEK(369)*256)' = 
35. Also: die erste Prorammzeile (inkl. Seicherstellen 368 und 
369) ist 35 Bytes lang (daraus kann man schon den Beginn der 
nächsten Programmzeile, die auch über entsprechende Angaben 
verfügt, errechnen). In Speicherstelle 370 und 371 ist die 
Zeilennummer der ersten Programmzeile gespeichert: "PRINT 
PEEK(370)' = 10; "PRINT PEEK(371)' = 0. Errechnung s.o.: "PRINT 
PEEK(370) + (PEEK(371)*256)' = 10. Also: die erste Zeile unseres 
Programms "Speicher 4' ist Zeile Nummer 10 und sie ist 35 Bytes 
lang. 


Genau diese Berechnungen führt der CPC immer und immer wieder 
(ab Zeile 160) aus, um uns beim Auffinden des Suchbegriffs auch 
die Zeilennummer anzeigen zu können. 


Nun aber genug der grauen Theorie! Gehen wir zu "Speicher 5' 
über. 


ichen suchen Sie 
welchels) ‚öht groesser als 6) ? Laenge 


Speicherabschnitt soll 
In weisteZeichenfolge gesucht werden 
< /N=zim ganzen Speicher/P=Programm) ? n 


Laenge an Speicherstelle 682 gefunden 
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18 REM Untersuchung des Speichers 4 
zZ@ REM Zeichenfolge im Speicher suchen 
Z@ REM CFC454 Basic Programme 
495 REM Copyright 1984 DATA BECKER % 
Rainer Lueers 
5@ INK 2#,1:INK 1,24:INK 2,1,24:effekt=2: 
normal>=1 
6A MODE 1 
78 REM Eingabe des Suchbegriffs 
84 INPUT "Welche(s) Zeichen suchen Sie 
{Laenge nicht groesser als 6) 
"ıf% 
998 IF LEN{f$)>6 OR LEN(f$)=G THEN GOSUR 
542:60T0 6% 
1@2@ PRINT 
119 REM Speicherraum fuer Suche waehlen 
1285 INPUT "In welchem Speicherabschnitt 
soll nach der Zeichenfolge gesucht 
werden t /N=im ganzen Speicher /FP=FPro 
gramm) ";fi$ 
138 fFi$=UPPER$ (fi1$) 
14% FRINT 
159 IF f1$="N" THEN a=s@ß:e=65535:60T0 3794 
188 IF fi1$="P" THEN a=368:60T0 188 ELSE 
GOTO 328 
1783 REM Suche nach eingegebenem Such- 
begriff nur im Frogrammr ahmen; 
wenn gefunden -> Anzeige der 
entsprechenden Zeilennummer 
188 aa=FEEH (a) +(FEEK (at1) 256) :bb=FEEK (a 
+ZI +(PEEK (a+3) 8256) 
179 FOR n=a TO ataa 
2a IF CHR$(FEEK(n))=MID$(f$,1,1)THEN k= 
1 
218 IF k=1 AND CHR&$ (PEEK (n+1))=MID$ (f$,2 
„1)THEN k=2 
228 IF k=2 AND CHR$ (PEEK (n+2))=MID$ (f$,3 
„1DTHEN k=3 
2328 IF k=3 AND CHR$ (FEEK (n+3))=MID$& (f$,4 
„1)THEN k=4 
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248 IF k=4 AND CHRS$ (PEEK (n+4))=MID$ (f$,5 
„1)THEN k=5 

254 IF k=5 AND CHR$(PEEK (n+5) )=MID$ (f$,6 
„1)THEN k=6 

2683 IF k=LEN(f$) THEN FRINT f%;" in Zeil 
e":bb; "gefunden ("sn,")" 

278 k=8 

288 NEXT n 

298 a=ataa:IF aa=ß OR bb=d THEN GOTO 478 
ELSE GOTO 188 

za PRINT 

318 REM Darstellungsraum eingrenzen 

328 INPUT "Anfangsadresse ";a 

zz2 INPUT "Endadresse ";e 

3428 IF are OR ai@ OR eiß OR a>65535 OR e 
>65535 THEN GOSUB 548:60T0 32 

258 FRINT 
368% REM Suche im Speicher von Adresse 

a bis e nach dem Suchbegriff f$ 

37@& FOR z=a TO e 

382 IF CHR$(PEEK(z))=MID$(f$,1,1) THEN k= 
1 
398 IF k=1 AND CHR$(FEEK (z+1))=MID$(#$,2 
‚„i)THEN k=2 
a808 IF k=2 AND CHR$(FEER (z+2))=MIDE (f$,3 
„I)THEN k=3 
418 IF k=3 AND CHR$ (PEEK (z+I3))=MIDE$ (f$,4 
„1)THEN k=4 
428 IF k=4 AND CHR$ (PEEK (z+4))=MID$ (f$,5 
‚1)THEN k=5 

4328 IF k=5 AND CHR$ (PEEK (z+5) )=MIDE (f$,6 
„i1)THEN k=6 
448 IF k=LEN(f$) THEN PRINT f$;" an Spei 
cherstelle";z; "gefunden" 
458 k=2 
468 NEXT z 
475 PRINT 
488 FRINT 


3628 


REM Frogrammende oder Fortfahren 
INPUT "Suchen Sie weitere Zeichen ( 
"ıf$ 

f$=UPPERS ({f$) 

IF f$<>"N" THEN GOTO 68 

END 

FEN effekt:PRINT:PRINT TAB(12) "Fals 
Eingabe!" 

PEN normal :GOSUB 568: RETURN 
FRINT:FRINT TAR(7) "<Bitte eine Tast 


e druecken" 


578 
jet=1%] 


f$=INKEY$: IF f$="" THEN GOTO 578 
FRINT: RETURN 


—- 19 — 


Speicher 5 


s=z2=2====2= 


Während wir im Programm "Speicher 3' jeweils in einer Zeile acht 
Bytes dargestellt haben (hexadezimal und als CHR$-Wert), wird in 
diesem Programm alles übersichtlicher = ein Byte pro Zeile und 
zugleich vielseitiger dargestellt. 


Die Darstellungsformen dezimal und hexadezimal laufen jeweils 


nebeneinander: 


1) Adresse dezimal 

2) Adresse hexadezimal 

3) Inhalt der Adresse dezimal 

4) Inhalt der Adresse hexadezimal 

5) Inhalt der Adresse (wenn darstellbar) als 'CHR$(' 


Zu Ihrer eigenen Speicherdurchforstung ist dieses Programm recht 
sinnvoll, denn Sie brauchen nicht immer alles umzurechnen; 
außerdem bietet dieses Programm eine ideale Möglichkeit, die 
Vielzahl der Tokens (siehe Anhang) kennenzulernen (erinnern Sie 
sich noch? Token = BASIC-Wort). 


Machen wir einen Versuch: Ergänzen Sie das Programm um Zeile 9: 

'9 PRINT' (ENTER). Wie Sie wissen, beginnt der BASIC- 
Programmspeicher bei Adresse 368. Geben wir also als Anfangs- 
adresse '368' ein; der Endwert soll uns egal sein, soll aber in 
jedem Fall größer als die Anfangsadresse sein (druecken wir nur 
(ENTER), so läuft die Speicherabbildung bis Anfangsadresse+2000 
= 2368). Es reicht für unser Experiment, wenn wir uns nur die 
ersten 10 Speicherplätze anzeigen lassen, also Endadresse 378! 
Listen Sie bitte zusätzlich zur Kontrolle Zeile 9 und Zeile 10. 


Kurz zur Deutung des Speicherabbildes: 


Adresse 368: Inhalt 
Adresse 369: Inhalt 


(368 und 369 geben die Zeilenlaenge an) 
(Adr.368+(256*Adr.369) = 6 Bytes) 
Adresse 370: Inhalt (370 und 371 geben die Zeilennr. an) 
Adresse 371: Inhalt (Adr.370+(256*Adr.371) = Zeilennr. 9) 
Adresse 372: Inhalt 191 (Tokenwert für den Befehl 'PRINT') 


ovo on 
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Adresse 373: Inhalt 0 (Zeilenende-Anzeige) 

Adresse 374: Inhalt 35 (374 und 375 geben die Zeilenlaenge an) 
Adresse 375: Inhalt O0 (Adr.374+(256%*Adr.375) = 35 Bytes) 
Adresse 376: Inhalt 10 (376 und 377 geben die Zeilennr. an) 
Adresse 377: Inhalt O (Adr.376+(256%*Adr.377) = Zeilennr. 10) 
Adresse 378: Inhalt 197 (Tokenwert für den Befehl 'REM') 


Interessieren soll uns in diesem Zusammenhang nur Adresse 372. 
Geben Sie bitte einmal 'POKE 372,197' ('197' = Tokenzahl für 
'REM') ein und listen anschließend Zeile 9. Nun steht dort nicht 
mehr wie ursprünglich 'PRINT', dafür aber viel besser 'REM'. Es 
gibt nicht nur Einbyte-('"PRINT' = 191, "REM! = 197)Tokens, es 
gibt auch Zweibytetokens. Aber davon hier nicht mehr. Schauen 


Sie zur Orientierung bitte im Anhang nach! 


ul] 


no 
» 
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18 REM Untersuchung des Speichers 5 
2A REM Speicherausgabe Byte fuer Byte 
pro Zeile 
3@# REM CFC464 Basic Programme 
45 REM Copyright 1984 DATA BECKER % 
Rainer Lueers 

5a INK 9,1:INK 1,24:INk 2,1,24:effekt=2: 

normal>=1 

64 MODE 1 

73 REM Darstellungsrahmen eingrenzen 

82 INFUT "Anfangsadresse ";a 

98 REM 

1d# FRINT "Endadresse (Zahl /<ENTER>->"za 

+2289;,")":INFUT e 

118 IF a{ß OR eöß OR a>65535 OR e>65535 

THEN GOSURE 278:6G0T0 6% 

129 IF e=& THEN e=at2222 

128 CLS 

148 REM Reihenfolge im Ausdruck: 
Adresse dezimal 
Adresse hexadezimal 
Inhalt der Adresse dezimal 
Inhalt der Adresse hexadezimal 
Inhalt der Adresse als CHR$( 

1594 FOR z=a TO e 

1628 FRINT z; 

178 PRINT TAR(8) HEX$(z,4); 

184 FRINT TAR (19) PEEK(z); 

194 FRINT TAR(24) HEX$(PEEK(zZ),2); 

zZ@A FRINT TAB(I9); 

271# ni=PEEH (z) 

zZzZA IF n1£ii2 THEN n1=46 

222 IF ni>126 THEN n1=46& 

249% FRINT CHR$ (ni) 

259 NEXT z 

269 END 
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278 FEN effekt:FRINT:FRINT TAB(12) "Fals 
che Eingabe!" 

2824 FEN normal:G0OSUR 2949: RETURN 

298 FRINT:PRINT TARB(7) "<Bitte eine Tast 
e druecken:>" 

zog F$=INKEYS: IF f$="" THEN GOTO 388 

318 RETURN 
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Grafikeditor 


Nicht nur der Sound des CPC läßt sich ohne Handbuch nur mit 
Schwierigkeiten programmieren, ähnlich wenn nicht sogar gleich 


verhält es sich mit der Grafikprogrammierung beim CPC. 


Einerseits gibt es lediglich zwei direkte Grafikbefehle (Punkt 
setzen = 'PLOT', Linie zeichnen = 'DRAW'), andererseits muß man 
sich schon gut auf einem Koordinatenkreuz zu Hause fühlen, will 
man absolut und relativ genau die gewünschten Punkte auf dem 
Bildschirm ansprechen. 


Viel einfacher, schneller und auch komfortabler geht es da doch 
mit unserem 'Grafikeditor'. 


Lange haben wir überlegt, welche Ansteuerung für den Cursor 
ideal wäre (nur die absolute Adressierung zu verwenden wäre in 
unseren Augen sinnlos, dann brauchten wir keinen Grafikeditor!). 
Der Joystick mußte ebenalls wie die Cursorsteuerung schon bald 
abgeschrieben werden, da hierdurch nur jeweils vier Himmels- 
richtungen angesprochen bzw. unterschieden werden können. 


Da für uns ein Achter-Richtungsblock ideal war (alle Himmels- 
richtungen plus Diagonalen), wurde einfach ein Großteil der 
Zehnertastatur als Cursor mit acht Richtungen umfunktioniert 
bzw. umbelegt. 


Das Programm 'Grafikeditor' bietet nicht nur die Möglichkeit des 


einfachen Zeichnens in acht Himmelsrichtungen: 


mit 'C" können Sie den Cursor absolut setzen (z.B.'320,200' 
Mittelpunkt) 


mit 'D" kann eine Bildschirmfläche dupliziert werden (Sie be- 
stimmen mit dem ersten Cursor die linke untere Ecke, mit dem 
zweiten Cursor die rechte obere Ecke der zu kopierenden Fläche; 
schließlich wird mit dem dritten Cursor die linke untere Ecke 
angepeilt, wo unser Duplikat auf dem Bildschirm erscheinen 
soll). Mit der Zusatzfunktion 'OR' wird im Gegensatz zu "AND" 


der Bilduntergrund nicht gelöscht. Schließlich können Sie das 
Original auch noch zweifach vergrößert darstellen 
mit 'F' können Sie aus dem zur Verfügung stehenden Farbspektrum 


auswählen 


mit 'G' läßt sich leicht eine Gerade beliebiger Länge zwischen 


zwei Punkten ziehen 


mit 'K' wird nach Eingabe des Radius um den Cursor, der nun 
Mittelpunkt ist, ein Kreis gezogen 


mit 'L' loeschen Sie eine durch zwei Cursoreingaben (links unten 
und rechts oben) bestimmte Fläche 


mit 'R' (wieder links unten und rechts oben bestimmen) wird ein 
Rechteck auf den Bildschirm gezeichnet 


mit 'T' wird schließlich ein Text an der Grafikcursorposition 
ausgegeben. 


Sie sehen, bis auf das Ausmalen von Flächen, eine Abspeicherng 
des entstandenen Bildes auf Kassette (16 K dauern mit Kassette 
einfach zu lange, warten wir lieber auf die Diskettenstation) 
und eine Ausgaberoutine an den Drucker (Hardcopy) ist fast alles 
grafisch mit diesem 'Grafikeditor' möglich. 


Vielleicht fallen Ihnen noch andere Dinge ein. Bis auf den 


begrenzten Computerspeicherlatz liegt Ihrer Kreativität somit 


kein Stein mehr im Wege. 


14 REM Grafikeditor 

za REM CFPC464 Basic Frogramme 

38 REM Copyright 1984 DATA BECKER % 

Rainer Lueers 

48 INK #,1:INKE 1,24:INK 2,1,24:effekt=2: 

normal=1 

5@ MODE 1 

68 FOR n=: TO 2#:KEY DEF n,1:NEXT:SPEED 

KEY 58,2 

78 FAPER @:PEN normal 

823 INFUT "Welchen Bildschirmmaode ";f# 

FE IF VAL(FS)ÄB OR VAL(fF$)>Z THEN GOSUB 

15723:G0T0 8% 

129 IF VAL(f$)=A THEN z1=4 

118 IF VAL(f$)=1 THEN zi1>2 

1228 IF VAL(f$)=2 THEN zi1=1 

12728 MODE VAL (#f%$) 

148 REM Festlegen des Grafik- und des 
Textfensters 

152% ORIGIN #,2,28,6498,404, 2% 

162 WINDOW #1,1,48, 25,25 

178 a=328:b=209 

188 FAFER #1,3:CLS #1 

198 FAPER 8:CLG:FLOT a,b,1 

zZ@0 REM Menuevorgabe 
Auswahlmoeglichkeiten: CDFGELRT 
C = Cursor mit Koordinaten best. 


D= Duplizieren (Or/And/Vergr.) 


F = Farbe bestimmen 

G = Gerade zeichnen 
zig REM K = Kreis zeichnen 

L = Loeschen 

R = Rechteck zeichnen 

T = Text eingeben 


228 CLS #1:FRINT #1,a;b: "CDFGKLRT"; 
2TA a$=INKEY$ 

2aA IF a$="" THEN GOTO 238 

25@# GOSUR 1578 

260 DRAW a,b 

278 IF ASC(a$) >57 THEN GOSUR 298 
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2853 GOTO 728 

292 CLS #1:PRINT #1,a;b; 

339 a$=uUFFER$ (a$) 

19 IF a$="C" THEN FRINT #1, "Curs.best." 


en) 


:ZE=SZ 
2a IF a$="D" THEN PRINT #1,"Duplizier." 


338 IF a$="F" THEN PRINT #1,"Farb.best." 


44 IF a$="G" THEN PRINT #1,"Gerade ze." 


358 IF a$="K" THEN FRINT #1,"Kreis zei." 


Sag IF a$="L" THEN FRINT #1,"Loeschen " 


378 IF a$="R" THEN PRINT #1,"Rechteck " 
388 IF a$="T" THEN PRINT #1,"Text eing." 
11zz=9 

>94 IF zz=98 THEN RETURN 

488 as=INKEYS$ 

A418 IF a$="" THEN GOTO 498 

428 IF a$=CHR$ (13) THEN GOTO 44& 

439 RETURN 

448 ON zz GOSUR 419,479,528,869, 900, 1002 
‚184989,12924,1458 

452 RETURN 

468 REM C = Cursor mit Koordinaten best. 
478 CLS #1: INPUT #1, "Wohin (x,y)"z3a$,b$ 
488 IF VAL(a$)<@ OR VAL (a$)>648 OR VAL(a 
$)<28 DR VAL (a$)>428 THEN GOTO 478 

AB a=VAL (a$) :b=VAL(b$) :FLOT a,b 

S23@ RETURN 

Ssi2 REM D= Duplizieren (Or/And/Vergr.) 
528 punktasa:punktb=b:CLS #1:FPRINT #1,"1 
„Cursor setzen" 

338 a$=INkKEY$ 

S49# IF a$="" THEN GOTO 538 

>32 farbe=TEST (a,b) :punkti=a:punkt?=b 


S62 FOR m=1 TO 18:PLOT a,b„farbe:FLOT a, 
b,1:FLOT a,b,2:PLOT a,b,3:PLOT a,b,1:PL0O 
T a,b,farbe:NEXT m 

578 GOSUB 1578 

5823 IF a$=CHR$ (13) THEN al=a:bi=b ELSE 6 
0OTO 538 

Ss78 CLS #1:PRINT #1,"2.Cursor setzen" 
629 as$=INKEY$ 

6128 IF a$="" THEN GOTO 62% 

62284 farbe=TEST (a,b) :punkti=a:punkt2= 

6328 FOR m=1 TO 1@:PLOT a,b,farbe:FLOT a, 
b,1:PLOT a,b,2:PLOT a,b,3:PLOT a,b,1:PLO 
T a,b,farbe:NEXT m 

6428 GOSURB 1578 

658 IF a$=CHR$ (13) THEN a2=a:b2=b:IF a2 
=ai OR b2<=bi THEN GOTO 598 ELSE GOTO 66 

8 ELSE GOTO 488 

668 CLS #1:PRINT #1,"3.Cursor setzen" 

678 a$=INKEY$ 

688 IF a$="" THEN GOTO 6768 

696 fFarbe=TEST (a,b) :punkti=a:punkt2= 

788 FOR m=1 TO 12:PLOT a,b,farbe:FLOT a, 
b,1:PLOT a,b,2:PLOT a,b,3:PLOT a,b,1:FLO 
T a,b,farbe:NEXT m 

718 GOSUR 1578 

728 IF a$=CHR$(13) THEN a3=a:bI=b ELSE G 
OTO 678 

7398 CLS #1:1INPUT #1."0(r) oder Nt(ot) ";f 
$:f$=UFPER$(F$): IF LEFT$CF$,1)="0" THEN 
flag=1 ELSE flag=g& 

744 CLS #1: INPUT #1,"vergroessert (J/ ) 
"f$:f$=UPFER$(f$): IF LEFT$(FS,1)="J" TH 

EN flag2=1 ELSE flag2= 

758 IF flag2<>@d THEN GOTO 89896 

768 ni=8:mi1=8:FOR n=al TO a2 STEF zi:FOR 
m=bi TO b2 STEF 2 

778 farbtest=TEST (n,m):IF flag=2 THEN PL 

OT aS+tni1,b3i+tmil,farbtest ELSE IF TEST (a3+ 
n1,bätm1)=8 THEN FLOT a3+tni1,bS+mi,farbte 
st 
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7824 mi=mi+2:NEXT m:mi1=@:ni=ni+tzi1:NEXT n 
798 a=spunkta:b=punktb:PLOT a,b, 1:RETURN 
8g2 ni=@:mi=9:FOR n=al TO a? STEP zi:FOR 
m=bi TO b2 STEF 2 
sig ft=TEST(n,m):IF flag=f THEN FLOT at 
ni.bitmil,ft:PLOT a3+tn1,b3+tmi+t2,ft:PLOT a 
Z+tnl1+tz1,b3+tml,ft:FLOT aitni+tz1,bI+tmi+2,f 
t 

822 IF flag=1 AND TEST (aS+n1,b5+m1)=8 TH 
EN FLOT aStni1,b3t+tmi,ft:FLOT aStn1,b35+ml+ 
2,ft:PLOT aStni+tz1,bS+tmi,ft:PLOT asS+ni+z 
1,b3tmi+2, ft 

3@ mi=mi+4:NEXT mımi=ß:ni1=n1+2%z1:NEXT 


848 a=punkta:b=punktb:PLOT a,b,1:RETURN 

852 REM F = Farbe bestimmen 

868 CLS #1: INPUT #1,"Welche Nummer ";f$ 

878 IF VAL(FEI<A OR VAL(f$)>z1t2 THEN GO 
TO 8684 ELSE FLOT a,b,VAL(#$) 

882° RETURN 

8928 REM G = Gerade zeichnen 

9238 CLS #1:PRINT #1,"Bitte Cursor setzen 
":punkti=a:punkt?2=b 

718 a$=INKEY$ 

924 IF a$="" THEN GOTO 916 

938 farbe=TEST (a,b) 

7428 FOR m=1 TO 1@:PLOT a,b,farbe:PLOT a, 
b,1:PLOT a,b,2:FLOT a,b,S3:PLOT a,b,1:PLO 
T a,b,farbe:NEXT m 

95A GOSUR 1578 

762 IF a$=CHR$ (13) THEN GOTO 984 

778 GOTO 918 

9829 FLOT punkti,.punkt2,1:DRAW a,b,1:RETU 
RN 

998 REM K = Kreis zeichnen 

1222 CLS #1:INFUT #1, "Radius ";f$ 

1912# FOR aa=1 TO 3568 

1922 DEG 

1832 PLOT a+tVAL(f$) XC0S (aa) ,„b+VAL (FE) XSI 
Ntaa),i 
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1948 
1954 
145% 
19478 
128% 
1898 
1129 
1118 
1128 
1128 
‚b,1: 
OT a, 
1148 
115% 
GOTO 
116% 
1178 
118% 
1198 
1208 
„b,1: 
OT a, 
1218 
1228 
GOTO 
123% 
12498 
259 
1269 
1278 
128% 
129% 
1228 
1218 
1328 
13% 
„b,1: 
OT a, 
1242 


NEXT aa 

PLOT a,b 

RETURN 

REM L = Loeschen 

CLS #1:PRINT #1,"1.Cursor setzen" 


mer ker 1=a:merker2=b 


a$=INKEY$ 
IF a$="" THEN GOTO 1122 
farbe=TEST (a,b) :punkti=a:punkt?2= 


FOR m=1 TO 198:PLOT a,b,.farbe:PLOT a 
PLOT a,b,2:PLOT a,b,3:PLOT a,b,1:PL 
b,farbe:NEXT m 

GOSURB 1578 

IF a$=CHR$ (13) THEN al=a:bi=b ELSE 

1198 

CLS #1:PRINT #1."2.Cursor setzen" 


a$=INKEY$ 
IF a$="" THEN GOTO 1178 
farbe=TEST (a,b) :punkti=a:punkt2= 


FOR m=1 TO 18:FLOT a,b,farbe:FLOT a 
FLOT a,b,2:FLOT a,b,3:PLOT a,b,1:PL 
b,farbe:NEXT m 

GOSUR 157% 

IF a$=CHR$ (13) THEN az=a:b2=b ELSE 
1178 

ORIGIN %#,2,a1,a2,b2,b1:CLG: 

DRIGIN 8,9,%,649,499,28 
a=merkeri:b=merker2:FLOT a.b,1 
RETURN 

REM R = Rechteck zeichnen 

CLS #1:PRINT #1,"1.Cursor setzen" 


mer ker i1=a:merker?2=b 


a$=INKEY$ 
IF a$="" THEN GOTO 139% 
farbe=TEST (a,b) :punkti=a:punkt2=b 


FOR m=1 TO 18:FLOT a.b,farbe:FLUOT a 
FLOT a,b,2:FLOT a,b,3:FL0OT a,b,1:FL 
b,farbe:NEXT m 

GOSUR 1578 


13539 IF a$=CHR$(12) THEN al=sa:sbi=b ELSE 
GOTO 1320 
1368 CLS #1:FRINT #1, "2.Cursor setzen" 
1378 a$=INKEY$ 
1388 IF a$="" THEN GOTO 1378 
1398 farbe=TEST (a,b) :punkti=a:punkt2=b 
1498 FOR m=1 TO 198:FLOT a,b.farbe:FLOT a 
„b,1:PLOT a,b,2:FPLOT a,b,3:FPLOT a,b,i:FL 
OT a,b„farbe:NEXT m 
141% GOSUB 1574 
1424 IF a$=CHR$ (13) THEN aZ=a:b?=b ELSE 
GOTO 1374 
1438 FLOT ai,b1:DRAW a2,b1,1:DRAW a2,b2, 
1:DRAW al,b2,1:DRAW al,bi1,1:a=merkeri1:b= 
merker2:FLOT a,b,1:RETURN 
144% REM T = Text eingeben 
1458 CLS #1:PRINT #1,"Cursor setzen":mer 
ker 1=a:merker2=b 
146% a$s=INKEY$ 
1478 IF a$="" THEN GOTO 1468 
1488 farbe=TEST (a,b) :punkti=aspunkt?2=b:F 
OR m=1 TO 19:PLOT a,b,farbe:PLOT a,b,1:F 
LOT a,b,2:PLOT a,b.23:PLOT a,b,1:FLOT a,b 
‚farbe:NEXT m 
1494 GOSUR 1574 
1528 IF a$=CHR$ (13) THEN al=a:bi=b:PLOT 
al,bi,i ELSE GOTO 1462 
1512 TAG 
1528 CLS #1:INPUT #1,"Text "ıa$ 
1522 FRINT a$; 
1544 a=merkeri:b=merker2:FLOT a,b,.i 
1553 TAGOFF:RETURN 
15658 REM Ausrechnen der Cursorbe- 

wegung (8 Richtungen) 
13728 IF ASC(a$)=54 THEN a=satzi 
1588 IF ASC(a$)=57 THEN asatzi:b=b+z1 
159724 IF ASC(a$)=56 THEN b=b+2 
16289 IF ASC(a$)=55 THEN a=sa-zi:b=b+z1 
1612 IF ASC(a$)=52 THEN a=sa-zi 
1628 IF ASC(a$)=49 THEN a=sa-zi:b=b-z1 
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1638 
1648 
1659 
166% 
1679 
15988 
169% 


IF ASC(a$)=5g9 


THEN b=b-2Z 


IF ASCt(a$)=51 THEN asatzi:b=b-z1 


RETURN 


a$=INKEYE 

IF as="" THEN 1658 
FRINT ASC (2%) 

GOTO 166% 


/ 


Data Becker 


"398 


288 CDFGKLRT 


ata- 
a Data-B ecker 


- 32 - 


Soundeditor 


zss===22su2== 


Der CPC hat zwar einen tollen Soundprozessor, jedoch wird der 
Umgang mit dem vielen unverständlichen Zahlwerk schon so manchem 
begeisterten Freak nach langem Versuchen den Wind aus den Segeln 
genommen haben. Wie kann man sich auch logisch erklären, daß die 
Tonkanäle beim SOUND-Befehl an erster Stelle angesprochen wer- 
den, die Lautstärke jedoch erst an vierter Stelle? Wie merkt man 
sich die vielfältigen Rendezvous-Techniken? 


Unserer Meinung nach ist da nicht mit Auswendiglernen weiterge- 
holfen, vielmehr läuft es hierbei immer mehr auf das häufige 
Nachschlagen im Handbuch hinaus! 


Oder: Wie merken wir uns, welche der phantastischen Ton- bzw. 
Lautstärkekurven gerade aktiv ist nd welche wir aktivieren kön- 
nen? Notitzen auf Papier machen? 


Wir haben mit unserem 'Soundeditor' eine komfortablere Lösung 
anzubieten. Sie finden sämtliche Parameter mit ihrer deutschen 
Bedeutung auf einer Bildschirmseite und können nun durch Drücken 
der Taste (SHIFT) mit einem Buchstaben zusammen anheben (z.B. 
(SHIFT) 'H' -) Tonhöhe steigern) oder durch Drücken der Taste 
(CTRL) mit einem Buchstaben zusammen senken (z.B. (CTRL) 'L' -) 
Latstärke verringern). 


So läßt sich so manch ein Ton oder manches Geräusch in aller 
Ruhe am Bildschirm editieren und durch anschließendes Drücken 
der Taste (ENTER) auch aktivieren (denken Sie bitte daran, daß 
für die Erzeugung eines Tones bei diesem Soundeditor die Laut- 
stärke, die Tonhöhe und zumindest ein Tonkanal aktiviert sein 
muß). 


Bis zu sechzehn verschiedene Hüllkurven jeweils getrennt für Ton 
und Lautstärke können zusätzlich aktiviert und bei der Tonedi- 
tierung eingesetzt werden. Nach dem Drücken der Tasten (SHIFT) 
und 'N' (ENV-Eingabe) werden Sie nach der ENV-Nummer und der 
Parameterzahl befragt. Die ENV-Nummer hat etwas mit der Pro- 
grammabspeicherung zu tun und ist nicht unbedingt gleichbedeu- 
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tend mit der Folgenummer der Hüllkurve. Somit beträgt die Min- 
destparameteranzahl, nach der im Programm gefragt wird, auch 
nicht drei sondern vier. 


Ähnlich werden ENT-Hüllkurven erzeugt (Tonhüllkurven) und zwar 
durch gleichzeitiges Niederdrücken der Tasten (SHIFT) und '0'. 
Schließlich können wir uns einen Überblick über die erstellten 
Hüllkurven durch (SHIFT) und 'P' verschaffen. 


Viel Spaß bei der Editierung neuer Klänge mit Ihrem CPC und 
diesem Soundeditor! 


Der beim Schneider CPC464 
<SHIFT> -> + <CTRL> -> - 


A:Kanal A 
B:Kanal B 
C:Kanal C 
: vous mit Kanal A 
a mit Kanal B aus 
:Rendezvous mit Kanal C aus 
G:Geraeusch Periode aus 
H: Tonhoehe 


:Tondauer in 1/1808 Sek. 


aus 


H £ einer ENU-Huellkurve 
KIABEUF einer ENT-Huellkurve 8 


L:Lautstaerke 
:ENV-Eing. O:ENT-Eing. P:Liste 
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13 REM Scundeditor 

22 REM CPC464 Basic Programme 

33 REM Copyright 1984 DATA BECKER & 

Rainer Lueers 

AB INK 8,1:INE 1,24:1INK 2,1,2 

Sg DIM a{(15,15),a1(15,15) 

62 MODE 1 

78 SPEED INK 29,2 

824 PEN 1 

98 REM Bildschirmaufbau mit Angaben zu 
Kanal, Huellkurve, Tonhoehe ... 

108 PRINT" Der ";:PEN 2:PFRINT"Sound"z: 

FEN 1:FRINT" beim Schneider CPC464" 

112 FRINT 

128 FRINT" ASHIFT> -> + SCTRL> -> 


138 FRINT 
148 FRINT TAB(11) "A:Kanal A "s:IF a=s@ T 
HEN FRINT"aus" ELSE FEN 2:FRINT"an ":FEN 


152 PRINT. TAB(11) "B:Kanal RB "s:IF b=@ T 
HEN FRINT"aus" ELSE FEN ?Z:PRINT"an ":PEN 


1629 PRINT TAB(11) "C:Kanal C "s:IF c=@ T 
HEN PRINT"aus" ELSE PEN 2:FRINT"an ":PEN 


172 PRINT 

184 PRINT TARB(4) "D:Rendezvous mit Kanal 
A "3:IF d=@d THEN PRINT"aus" ELSE PEN 2: 

FRINT"an":FEN 1 

1928 FRINT TAB(4) "E:Rendezvous mit Kanal 
RB "z:IF e=8 THEN FRINT"aus" ELSE PEN 2: 
PRINT"an":PEN 1 

2209 FRINT TAR(4) "F:Rendezvous mit Kanal 
C "3:1IF f=8 THEN FRINT"aus" ELSE PEN 2: 
PRINT"an":PEN 1 

218 FRINT 

224 FRINT TAB(7) "G:Geraeusch Feriode "; 
:IF g=2# THEN LOCATE 27,1S:PRINT "aus" EL 
SE FEN 2:LOCATE 27,13:PRINT g=:PEN 1 
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2228 PRINT 

248 FRINT TAB(11) "H:Tonhoehe ";:1IF h=f 

THEN LOCATE 22,15:PRINT"aus" ELSE PEN 2: 
LOCATE 22,15:PRINT h:PEN 1 

258 FRINT 

26% FRINT TAR(4) "I:Tondauer in 1/19%@ Se 
k."3:1IF i=8 THEN PRINT"aus" ELSE PEN Z:L 
OCATE 28,17:PRINT i:PEN 1 

27@ PRINT 

288 FRINT TARB(4) "JzAbruf einer ENV-Huel 
lkurve ";:IF j=8 THEN LOCATE 33,19: PRINT 
"a4" ELSE PEN 2:LOCATE 32,19:PRINT j:FEN 

ı 

zZ9@ FRINT TAR(4) "KrAbruf einer ENT-Huel 
ikurve ";:IF k=8 THEN LOCATE 33,29: PRINT 
"a" ELSE FEN Z:LOCATE 32,28:PRINT k:FEN 


m 


Sa PRINT 

z1@ FRINT TAR(11) "L:Lautstaerke ";:Ifl 

= THEN LOCATE 25,22:PRINT"aus" ELSE FEN 

:LOCATE 25,22:FRINT 1:FEN 1 

ä FRINT 

33 PRINT TAR(4) "N:ENV-Eing. O:ENT-Ein 

g- P:Liste" 

249 a$=INkKEY$ 

358 REM Soundkanal und Rendevous wie 
eingestellt uebernehmen 

F68 al=satb+tctdte+f 

374 REM Tastaturabfrage inklusive 
Tonerzeugung, wenn <ENTER> 
gedrueckt 

384 IF a$=CHR$ (13) THEN SOUND al,h,i,1.) 


Z98 IF a$=CHR$(14) OR a$=CHR$ (78) THEN 6 
0TO Z128 

4858 IF a$=CHR$(15) OR a$=CHR$ (79) THEN G 
0OTO 2258 

410 IF a$=CHR$ (16) OR a$=CHR$ (88) THEN G 
0oTO 2378 

428 IF a$="" THEN GOTO 348 
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38 IF ASCta$) >12 AND ASC(a$)<65 THEN GO 
TO 348 
448 IF ASC(a$)>76 THEN GOTO 344 
458 IF ASC(a$})>12 THEN GOTO 1258 
469% REM Falls die gedrueckte Taste 
eine Aenderung auf dem Bild- 
schirm bewirkt hat, wird sie 
durch folgende Zeilen erzeugt 
478 DON ASC(a$) GOSUB 499,539,5790,61@, 658 
„738,829, 9719,1224,1289, 1168 
GOTO 344 
498 a=B 
da LOCATE 21,5 
18 FRINT" aus" 
23 RETURN 
Sa bi 
LOCATE 21,6 
PRINT"aus" 
RETURN 
c=d 
84 LOCATE 21,7 
PRINT" aus" 
sd RETURN 
s1B dad 
628 LOCATE 29,9 
32 PRINT" aus" 
649 RETURN 
50 e=ß 
669 LOCATE 29,18 
678 FPRINT"aus" 
682 RETURN 
693 #=8 
7a LOCATE 29,11 
718 PRINT" aus" 
728 RETURN 
738 IF g>® THEN g=g-1i 
za8 IF g=8 THEN LOCATE 27,13:FRINT"aus": 
RETURN 
758 LOCATE 27,13 
7&8 FRINT" ” 


2.“ 
oo 
S 0 

S 


2 
Sı 


No 
> 


ancn en en a ccm ıen cn con 
S 


N] 
iS} 


237.2 


778 
788 
798 
3292 
818 
932% 
332 


LOCATE 
PEN 2 

PRINT g 
PEN 1 

RETURN 
IF h>@ 
IF h=g 


RETURN 


842 
{= be?) 
= 1077] 
8728 
98% 
878 
52427 
918 
972% 
RETU 
738 
Fam 
7579 
764 
778 
784 
798 
1048 
181% 
1028 
19308 
1448 
145% 
126% 
197% 
148% 
1399 
11928 
1118 
1128 
11230 
114% 


LOCATE 
PRINT" 
LOCATE 
FEN 2 
FRINT h 
FEN 1 
RETURN 
IF i>®2 
IF i=@ 
RN 
LOCATE 
PRINT" 
LOCATE 
PEN 2 
PRINT i 
PEN 1 
RETURN 
IF j>9 
LOCATE 
FRINT" 
LOCATE 
IF j>4 
FRINT 
PEN 1 
RETURN 
IF k>® 
LOCATE 
FRINT" 
LOCATE 
IF k>@ 
FRINT 
PEN 1 


27,13 


THEN h=h-1 


THEN LOCATE 


THEN i=i-i1 


22,15: PRINT"aus": 


THEN LOCATE 28,17:PRINT" aus": 


28,17 


26,17 


THEN j=j- 


32,19 
32,19 
THEN PEN 

3 


1 


n 
< 


THEN k=k-1 
32,2 
32,28 
THEN PEN 


k 


> 
ı 
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1158 RETURN 
116@ IF 1>8 THEN 1=1-1 

1178 LOCATE 25,22 

1184 PRINT" " 

1198 LOCATE 25,22 

128@ IF 1=@ THEN PRINT"aus": RETURN 
1218 PEN 2 

1228 PRINT 1 

238 PEN 1 

1248 RETURN 

259 ON (ASC(a$)-64) GOSUB 1279, 1339,139 
4,1458, 1510, 157%, 1638, 1719,1798, 1878, 195 
D, 2030 

126% GOTO 248 

1270 a=1 

128@ LOCATE 21,5 

1298 PEN 2 

1368 PRINT"an " 

Z18 PEN 1 

132@ RETURN 

1334 b=2 

1348 LOCATE 21,6 

1358 PEN 2 

1362 PRINT"an " 

1378 PEN 1 

138@ RETURN 

1390 c=4 

1468 LOCATE 21,7 

1418 PEN 2 

1428 PRINT"an " 

1430 PEN 1 

144# RETURN 

1458 d=8 

1469 LOCATE 29,9 

1474 PEN 2 

148@ FRINT"an " 

1498 PEN 1 

1568 RETURN 

1518 e=16 

528 LOCATE 29,18 
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15328 
1548 
155% 

1564 
1578 
1598 
159782 
1628 
1618 
1628 
163% 
1648 
1654 
1662 
1678 
1688 
1698 
1798 
1718 
1728 
1738 
1748 
175% 
176% 
1778 
1788 
1798 
1848 
1819 
1829 
183% 
18498 
198528 
1868 
1974 
1888 
1894 
1928 
1918 


PEN 2 
PRINT"an " 
FEN 1 
RETURN 
=32 
LOCATE 29,11 

PEN 2 

PRINT"an " 

PEN 1 

RETURN 

IF 915 THEN g=g+1 
LOCATE 27,13 

PRINT" " 

LOCATE 27,13 

PEN 2 

PRINT g 

PEN 1 

RETURN 

IF h<4895 THEN h=h+1 
LOCATE 22,15 

PRINT" 2 

LOCATE 22,15 

PEN 2 

PRINT h 

PEN 1 

RETURN 

IF i<32767 THEN i=si+i 
LOCATE 28,17 

PRINT" " 

LOCATE 28,17 

PEN 2 

PRINT i 

PEN 1 

RETURN 

IF 3j<15 THEN j=j+1 
LOCATE 32,19 

PRINT" " 

LOCATE 32,19 

PEN 2 
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1928 PRINT j 

19324 PEN 1 

1948 RETURN 

1952 IF k<15 THEN k=k+1 

1968 LOCATE 32,28 

1978 PRINT” " 

1988 LOCATE 32,28 

1994 PEN 2 

2228 FRINT k 

zei1@ PEN 1 

2928 RETURN 

za3@8 IF 1<15 THEN 1=1+1 

2948 LOCATE 25,22 

29858 PRINT" " 

2868 LOCATE 25,22 

2079 PEN 2 

2888 FRINT 1 

2094 PEN 1 

2188 RETURN 

2119 REM Eine neue ENV-Huellkurve soll 
erzeugt werden 

212% LOCATE 4,24 

2138 FRINT" 

2148 LOCATE 4,24 

215@ INPUT"ENV-Nr.und Farameteranzahl "; 


OR z’15 OR (z1X>4 AND z1<>7 
AND z1X>13 AND zi1<>16) THEN 
1293 ELSE LOCATE 4,24: FRINT" 
":LOCATE 4,2 


2178 IF z1=4 THEN INFUT"4 Far. "ıalz,®), 
alz,1),a(z,2),alz,3) 

2184 IF z1=7 THEN INFUT"7 Par. "salz,®), 
alz,1),alz,Z2),alz, 2) ,alz,4) ,afz,5),atz,6 
)) 

2194 IF zi=18 THEN INPUT"1%8 Par. "salz,® 
),alz, 12) ,atz,2),atz,S),alz,4),a(z,S),alz 
‚o),atz,7),alz,8),atz,9 


=.41.= 


2229 IF zi=12 THEN INPUT"1S Far. "3a(z,® 
),alz,1),alz,2),a(z,3),a(z,4),a(z,5),afz 
&, az, 7),a(z,8),a(z2,N,a(z,1@%),afz,11) 
‚atz,12) 
2218 IF zi=16 THEN INPUT"16 Far. "salz,@ 
),atz,1),a(z,2),a(z,3),a(z,4),a(z,5),atz 
‚6),alz, ),alz,8),a(z,M9,alz,1@),a(z,11) 
„alz,12),a(z,13),a(z,14),a(z,15) 
22298 ENV a(z,@),a(lz,1),a(z,2),a(lz,3),a(z 
„‚A),atz,S),a(z,6),a(z,7),a(z,8),a(z,9), 
(z, 18) ,atz,11),a(z,12),a(z,1 Sec 
(z,15) 
223# GOTO 237% 
2244 REM Eine neue ENT-Huellkurve 
soll erzeugt werden 
225% LOCATE 4,24 
2262 FRINT " 


2274 LOCATE 4,24 

228% INFUT"ENT-Nr.und Parameteranzahl "; 
z,zi1 

229 IF z<ß OR z>15 OR (z12>4 AND z1X>7 
AND zifX> 18 AND zi<>13 AND z1X>16) THEN 
GOTO 2252 ELSE LOCATE 4,24:FRINT" 


":LOCATE 4,2 


za8 IF zi1=4 THEN INPUT"4 Far. "sal(z,®) 

„al(z,1),alt(z,2),al(z,2) 

2319 IF zi1=7 THEN INPUT"7 Par. "zsal(z,®) 

sallz,1),al(z,2),al(z,2),al(z,4),al(z,5) 

‚„alt(z,6) 

2328 IF zi=18 THEN INPUT"i19 Par. "sallz, 

8) ,allz,1),al(z,2),al(z,2),atl(z,4),alf(z, 
„sal(z,6),al(z,7),al(lz,8),al(z,9 

23328 IF zi=13 THEN INFUT"1Z Par. "salz, 

a),al{z,1),al(z,Z2),al(lz,2),al(z,4),al(z, 

S?,altz,6),al(z,”),alfz,89),al(z,PM),alfz, 

19) „al(z,11),alt(z,12) 
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?348 IF zi=16& THEN INPUT"16 Par. "zjalfz, 
a),al(z,1),al(z,2),al(z, I) ,al(z,4),al(z, 
5),allz,6),atl(z,),al(z,8),al(z,9),al(z, 
iM) „al(z,11),al{(z,12),al(z,13),al(z,14), 
al(z,15) 
2359 ENT allz,@),al(lz,1),al(z,2),al(z,3) 
‚sal(z,4),al(z,5),al(z,6),al(z,7),al(z,8 
„al(z,9),al(z,1@),al(z,i11),atl(z,12),alt(z 
‚12 ,altz,14),al(z,159 
236@ REM Die vorhandenen ENV- bzw. 
ENT-Huellkurven sollen auf 
dem Bildschirm dargestellt 
werden 
2378 MODE 1 
2389 as="" 
2298 INFUT"ENV-Liste oder ENT-Liste (V/T 
I) "sa 
2409 IF a$="" THEN GOTO 6#4 
2418 IF as<>"V" AND a$<>r"v" AND a$<>"T" 
AND a$“>"t" THEN GOTO 237% 
z2a2A IF a$£>"v" AND a$<>"V" THEN GOTO 25 


1 


438 REM Ausgabe der ENV-Huellkurven 

448 FOR n=8 TO 15 

z245@ FOR m=8 TO 15 

2468 IF a(n,@)=@ THEN GOTO 247% ELSE FRI 
NT atn.m); 

2478 NEXT m 

248# PRINT:FAFER 3:PRINT n:"."3:FAFPER 4 

2498 NEXT n 

2528 a$s=INKEY$ 

2518 IF a$="" THEN GOTO 2592 ELSE GOTO 6 


N HM 


I 


en 
>] 
Ss 


REM Ausgabe der ENT-Huellkurven 

FOR n=2 TO 15 

FOR m=8 TO 15 

IF alin,2)=@ THEN GOTO 2568 ELSE FR 
T alin,m; 


a (4 
a 


un 
Ss 


NEXT m 
78 FRINT:FAPER 3:PRINT n:"."z;:PAPER 4 
85 NEXT n 
98 as=INKEY$ 
6AB IF a$="" THEN GOTO 2592 ELSE GOTO & 


SN N NM MM MN MM 
en ca cn a zuaoaen 
S 
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Texteditor 


=sz=e2s2=2=2=20= 


Wir haben dieses Programm absichtlich nicht Textbearbeitung oder 
gar Textverarbeitung genannt, denn bei dieser Wahl der Be- 
zeichnung wären die Erwartungen eines fachkundigen Lesers und 


Programmierers einfach zu hoch gesteckt. 


Bei einer Textbearbeitung sollte man zumindest Textbausteine 
zusätzlich im Speicher in den bereits bestehenden Text einfügen 
können, und dies können wir mit einer Kassettenrecorderabspei- 
cherung nur äußerst schwer zufriedenstellend bewältigen. 


Bei einer Textverarbeitung hingegen sollte eine Kopplung mit 
Adreßdateien möglich sein, der deutsche Zeichensatz und die 
deutsche Silbentrennung sollten in das Programm mit einfließen 
und schließlich: die Textverarbeitung sollte unabhängig von dem 
zur freien Verfügung stehenden Computerspeicherpklatz zwischen- 
durch Textteile irgendwo ablegen (normalerweise auf Diskette) 
und beim Zurückblättern auch diese Inhalte wieder in den Spei- 
cher automatisch laden können. 


All diesem steht die bisherige Abspeicherungsmöglichkeit des CPC 
(mit Kassette) im Wege, geschweige denn: eine derart komfortable 
Textverarbeitung würde den Rahmen dieser Programmsammlung spren- 


gen. 


Nachdem wir Ihre Erwartungen heruntergeschraubt haben, nun aber 
doch noch die Erläuterung der Fähigkeiten unseres Texteditors: 
Wir können bis zu 10 Seiten a 22 Zeilen in unserem CPC abspei- 
chern. Mit der normalen Cursorsteuerung können wir vorblättern 
oder zurückblättern, Texte schreiben bzw. dorthin plazieren, wo 
sie unserer Meinung nach stehen sollten, aber natürlich auch 
einzelne Buchstaben oder mehr Zeichen löschen. Sind wir mit dem 
Cursor irgendwo auf dem Bildschirm 'herumgelaufen', können wir 
ihn durch das Drücken der COPY-Taste wieder an die alte Stelle 
positionieren. Die Stellung des Cursors im aktuellen Text wird 
im Erläuterungsfenster nicht nur durch die Angabe der Koordina- 


ten, auch durch einen Strich wird uns seine Horizontalposition 
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eindeutig angezeigt. Dieser "Unterstreichungsstrich' wird je- 
weils im Überschreibmodus ("PRINT CHR$(22);CHR$(1)') im Erläute- 
rungsfenster erzeugt. 


Wollen wir zurückblättern, müssen wir den Cursor in Zeile 1 
stehen haben und die Pfeiltaste (hoch) drücken. Wollen wir 
vorblättern, können wir entweder mit dem Cursor in Zeile 22 
gehen und nun die entsprechende Pfeiltaste drücken (nach unten) 
oder wir können (CTRL) und 'B' gleichzeitig drücken, was so viel 
bedeutet wie 'B'lättern. 


Wollen wir den eingetippten Text abspeichern, drücken wir (CTRL) 
und 'S' wie 'S'aven (der gewünschte Filename muß eingegeben 
werden), zum 'L'aden eines Textes von Kassette in den Computer- 
speicher (CTRL) 'L'. 


Wir können im Speicher nach Inhalten suchen (auch weitersuchen 
lassen) und schließlich auch einen Ausdruck des Textes in die 
Wege leiten. 


Die zuletzt genannte Funktion, das Ausdrucken von eingegebenen 
Texten, sei noch ein klein wenig genauer erläutert: Sie haben 
vorher im 40-Spalten-Format den Text eingegeben (zum Teil auch 
über das Zeilenende hinweg in die nächste Textzeile geschrie- 
ben). Beim Ausdrucken richtet sich der CPC nach auftretenden 
Leerzeichen und gibt den Text mit mindestens 40 Zeichen/Zeile 
(je nach Ihrer Wahl auch mehr) auf den angeschlossenen Drucker 
aus. 


Noch ein Hinweis: 

Sind Sie kein Druckerbesitzer, können Sie sich spaßeshalber den 
vom Computer für den Drucker angepaßten Text auch auf dem 80- 
Zeichen-Bildschirmmode ("MODE 2') ansehen. Hierzu müssen aller- 
dings ein paar kleine Änderungen im Programm vorgenommen werden: 
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1) Ergänzung des Programms um Zeile 755: 
'755 MODE 2' 


2) Änderung des Befehls 'PRINT #8' in den Zeilen 780 und 790 
lediglich in "PRINT" 


3) Vielleicht ist es sinnvoll, Zeile 810 vor der Umstellung auf 
40 Zeichen ('MODE 1') noch durch eine Warteschleife ('FOR n=1 to 
10000') oder gar durch eine Fortsetzungsaufforderung ("PRINT 
I"! plus Tastenabfrage mit "INKEY$') 
zu erweitern; beim Drucker hingegen ist eine sofortige Rückkehr 


"Bitte eine Taste druecken 


ins Programm gut so, denn zu diesem Zeitpunkt haben wir ja 


unsere Texte oder Daten bereits schwarz auf weiß! 


Nun können wir herumexperimentieren, wie der Text z.B. in 80, 70 
oder gar 60 Zeichen aussieht. 


rt? Seite 1 Trrrrrrrrrrrrr? 
aerregtiig Programm ’Texteditor’ fuer d 
C464. Wenn Ihnen auch die Eıngabe d 

i klein wenig Janasam vorkomm 

der CPC h so 


it diesem Pfeil trennen wir Absaetze.s 


ir koennen insgesamt 18 Bıldschırmseıte 
n Text eintippen, nach etwas suchen lass 
en, abspeichern, laden, drucken 


und voll editieren!y 


dieı Spass bei der Arbeit mit dıesem Pro 
grämntt 


13 nt re Seite 2 515 ee 
CTIRL> + S 
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185 REM Texteditor 

z8 REM CPC454 Basic Frogramme 

3# REM Copyright 1984 DATA BECKER % 

Rainer Lueers 

48 ON ERROR GOTO 852 

sag MODE 1:DIM a${19,23) :seite=1:si1=1 

863 FOR n=1 TO 18 

7a FOR m=1 TO 23 

823 a${in,m)=STRINGE (48," ") 

?@ NEXT m,.n 

1845 REM Erstaufbau des Bildschirms 

119 WINDOW #1,2,2397, 1,1 

1294 WINDOW #2,1.49, 2,23 

125 WINDOW #7,2,29, 24,24 

148 WINDOW #4,1,483, 25,25 

158 FAFER #1,3 

1629 PAPER #3,3 

178 FAFER #4,23 

184 CLS #1:CL5 #2:CL5S #3:CL5 #4 

198 FRINT #1, STRING$ (38, CHR$(94)); 

zaa FRINT #3, STRING$ (38,CHR$ (241)); 

z1@8 CLS #4:PRINT #4,VPOS(#2);,P0OS(#2) 

Z28 LOCATE #4, 15,1:PRINT #4,"<CTRL> + SL 

FDE"3:LOCATE #4,POS(#2),1:PRINT #4,CHR$ ( 

ZZ); CHR$ (1) ; CHR$ (95) ; CHRS$ (22) 3; CHRS$ (#) ; 

za28 IF si@seite THEN si=seite 

249 REM Warten auf Tastendruck 

2583 a$s=INKkEY$ 

z6# IF a$="" THEN GOTO 258 

278 GOTO 638 

z80 GOSUR 3238 

274 GOSUR 5598 

Sam GOSUR 57% 

a1 FRINT #2,a$;:IF a$=CHR$ (241) THEN PR 

INT #2 

3229 GOTO 21% 

Za4 REM Bildschirmeditor: 
Erkennen von Begrenzung, 
Umblaettermoeglichkeit und 
»DEL>-Taste 


a7 


348 IF ASC(a$)<244 AND ASC (a$) >2424 AND m 
erker<>1 THEN merker=1:v=VFOS (42) :p=FOS( 
#2) 
3524 REM CHR$ (224) 
heisst: ’COPY’” gedrueckt 
bedeutet: Cursor wieder 
zum Ausgangspunkt 
368 IF ASC(a$)=224 AND merker=1 THEN mer 
ker=8:LOCATE #2,p,v:a$="":60T0 54% 
378 IF POSC#H2)=48 AND VFOS(#2)=22 AND as 
<SCHR$ (13) AND ASC(a$)<128 THEN FRINT CH 
R$(7);:LOCATE #2,1,22:RETURN 
38485 REM CHR$ (127) 
heisst: ’DEL’ gedrueckt 
bedeutet: Zeichen links vom 
Cursor wird geloescht 
z9A IF ASCcta$)=127 AND VFOS(#2)<>1 AND F 
05(#2)=1 THEN LOCATE #2,48,VFOS(#2)-1:FR 
INT #2," "3:LOCATE #2,48,VPOS (#2) -1:a$=" 
":60T0 54% 
458 IF ASC(a$)=127 AND FOS(#2)<>1 THEN L 
OCATE #2,P05(#2)-1,VPOS(#2):FRINT #2," " 
;:LOCATE #2,POS(#2)-1,VPOS (#2) za$="":GOT 
0 548 
418 REM CHR$ (24%) 
heisst: Pfeil ”’oben’ gedrueckt 
bedeutet: Cursor eine Zeile bzw. 
eine Seite hoeher 
424 IF ASC(a$)=248 AND VPOS(#2)<>1 THEN 
LOCATE #2,POS (#2) ,VFPOS(#2) -1:3$="":GOTO 
548 ELSE IF ASC(a$)=248 AND VPOS(#2)=1 T 
HEN IF seite<>1 THEN seite=seite-1:CLS # 
2:FOR n=1 TO 22:PRINT #2,a$(seite,n);:NE 
XT n:LOCATE #2,1,1 
4398 REM CHR$ (241) 
heisst: Ffeil ”’unten’ gedrueckt 
bedeutet: Cursor eine Zeile bzw. 


eine Seite tiefer 
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448 IF ASC(a$)=241 AND VFOS(C#Z)<S>2Z THEN 
LOCATE #2,F0OS (#2) „VPOS(#2) +12 a$="":GOT0O 
548 ELSE IF ASC(a$)=241 AND VPOS(#2)=22 
THEN seite=seite+t1:CL5 #2:FOR n=1 TO 22 
:FRINT #2,a$(seite,n)z;:NEXT n:LOCATE #2, 
1,1 

4548 REM CHR$ (242) 

heisst: Ffeil "links” 
bedeutet: Cursor eine Fosition 
nach links 

468 IF ASC(a$)=242 AND VFOS(#2)<>1 AND P 

05(#2)=1 THEN LOCATE #2,VFOS(#2)-1,.42:3% 

="":6G0T0 548 

474 IF ASC(a$)=242 AND VFOS(#2)2>1 THEN 
LOCATE #2,F0S(#2)-1,VPOS(#2) 2a$="":6G0T0O 
542 
4828 REM CHR$ (243) 

heisst: Ffeil "rechts’ 
bedeutet: Cursor eine Fosition 
nach rechts 

4978 IF ASCta$)=24R AND VFOS(H2)2 >22 AND 
FOS(#2)=483 THEN LOCATE #2,1,.VPOS(#2) +1:a 
$="":G0T0 548 
sea IF ASC(a$)=243 AND VFOS(#2)2>22 THEN 
LOCATE #2,F05S (#2) +1,VFOS (#2) :a$="":6G0OT0O 
548 
Sl IF ASC(a$)i244 AND ASCta$) 237 THEN 
merker=M:a$="":G0OTO 544 
Ss2@ IF ASCta$)=224 THEN a$="" 

Sa8 IF a$=CHR$ (12) THEN a$=CHR$ (241) 

5424 RETURN 
S54 IF VPOS(#2)=22 AND a$=CHR$ (241) THEN 
FRINT #2,a%: :MID$ (a$(seite, VFOS(#2)),PO 
5(#42)-1,1)=a$:seite=sseite+tli:a$="":CLS #2 
568 RETURN 
578 LOCATE #1,15,1:FRINT #1," Seite"”;sei 
te; 
s8# LOCATE #3,15,1:PRINT #7," Seite";sei 
te+ti; 
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598 IF a$i>"" THEN MID$ (a$ (seite, VPOS (#2 
)),POS(#2),1)=a$ 
sd RETURN 
ö19ß REM Ueberpruefen, welche Taste 
gedrueckt wurde 
628 REM <CTRL> ’BR’ 
Blaettern 
62a IF ASC(a$)=2 AND seitei>’1d THEN seit 
e=-seite+ti:CL5 #2:FOR n=1 TO 22:FRINT #2, 
a$(seite,n);:NEXT n:LOCATE #2,1,1:G0T0 3 
[2,7] 
648 REM ZCTRL> °5° 
Abspeichern auf Kassette 
65a IF ASC(a$)=19 THEN CLS #4: INFUT #4," 
Name ";f$:IF f$="" THEN GOTO 828 ELSE f#$ 
="t1"+f$:DPENOUT #$:FRINT #9,s1:FOR n=1 T 
OÖ si:FOR m=1 TO Z2:FRINT #9,a%{n,m) :NEXT 
m,n:CLOSEOUT:GOTO 71% 
664 REM <CTRL> ’L° 
Laden von Kassette 
674 IF ASC(a$)=12 THEN CLS #4: INFUT #4," 
Name "ıf$: IF f$="" THEN GOTO 828 ELSE #$ 
=z"1"+f$:DPENIN #$: INPUT #9,si:FOR n=1 TO 
si:FOR m=1i TO 22: INPUT #9, a${n,m) :NEXT 
m,n:CLOSEIN:seite=1:CLS #2:FOR n=1 TO ZZ 
:FRINT #2,a$(seite,n);:NEXT n:GOTO 39% 
6829 REM <CTRL> °F” 
Finden von Suchbegriffen im Text 
6898 IF ASC(a$)=6 THEN CLS #4: INFUT #4,"S 
uchbegriff ";f$:IF f$="" THEN GOTO 719 E 
LSE FOR n=1 TO si:FOR m=i TO 22:1IF INSTR 
(a$in,m),f$)>@ THEN CLS #2:FOR mm=1 TO 2 
Zs3PRINT #2,a$(n,mm) ;:NEXT mm: seite=n:LOC 
ATE #2,1,.m:G0TO 71% ELSE NEXT m,.n 
728 REM Wird der Suchbegriff gefunden, 
kann nach Aufforderung weiter- 
gesucht werden 
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71ıA IF ASCtas)=& THEN CLS#4:FRINT#4,nım; 
» INFUT#4, "Mehr (J/) "sts: Ff$=UFPER$ (HS): 
IF #f$="J"THEN FOR n=seite TO si:FÜOR m=V 
FOS(#2)+1 TO 23:1IF INSTR(a$in,m),f$)>8 T 
HEN CLS#2: FOR mm=1 TO ZZ:FRINT#2,a$ (n,mm 
)z3:NEXT mm: seite=n:LOCATE#2,1,m:G60T0 71% 
ELSE NEXT mn 
728 REM <CTRL> °D’ 

Drucker -/8@-Zeichen-Routine 
738 IF ASC(a$)=4 THEN CLS#4 ELSE GOTO 82 
17) 
748 INPUT #4,"Drucker angestellt (J/ ) " 
atf$2ff$=UPPER$ (FE): IF LEFTSCHFS N, II SS" J 
" THEN GOTO 828 
758 CLS#4: INPUT #4, "Zeichen pro Zeile (> 
=4A) "szi:IF zi<£4@ THEN GOTO 754 
768 a$="":FOR z2=1 TO si1:FOR z3=1 TO 22: 
FOR z4=1 TO 48 
778 IF MID$(a$(z2,2z3),z4,1)=" " THEN z5= 
LEN(a$) ELSE IF MID$(a$(z2,z3),.z4,1)=CHR 
$(241) THEN z4=>42:6G0T0 798 
7998 a$=a$+MID$(a$(z2,23),z4,1):IF LEN(a$ 
)=zi THEN FRINT #8,LEFT$ (a$,25) 23$=RIGHT 
$(a$,LEN(a$)-z5):6G0T0 888 ELSE GOTO 8988 
79@ FRINT #8, a$:a$="" 
sam IF LEFT$(a$,1)=" " THEN a$=RIGHT$ (a$ 
„LEN(a$)-1) 
gi@ NEXT z4,z3,22:MODE 1:60T0 189 
822 IF ASCtas$)£ 32 AND ASC(a$)2>13 THEN a 
8329 GOTO 298 
944 REM Errorbehandlungsroutine 


850 a$=" "RESUME NEXT 
B6Q a$=as$+MID$(a$(z2,23),24,1):IF (LEN(a 
%)=z1 AND MID$(a$(z2,23),24,1)<>" ") THE 


N FRINT LEFT$ta$,z5) :a$=RIGHT$ (a$,LEN(a$ 
)-zW):G0OTO 8884 ELSE IF RIGHT$(a$,1)=CHR$ 
(241) THEN a$=LEFT$(a$,LEN(a$)-1):24=48 
ELSE GOTO 822 


5] 


ann 'Iexteditor’ fuer den aaa. Henn Ihnen auch die Eingabe 


ist das Pr 
. kein Problem: der CPC hat einen 


ecke ein klein wenig langsan vorkommt . 
am en Buffer fuer viele Zeichen. 


Mit diesem Pfeil trennen wir Absaetze. 


sant 18 Bildschirmseiten Text eintippen, nach etwas suchen 


Hir koennen ins 
lassen, abspe abpeichen, laden, drucken ... 


wd voll editieren! 
Viel Spass bei der Arbeit nit diesem Program! 


Ready 
| 
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Deutscher Zeichensatz 


SZE= SS 352222252 =2=2===2= 


Alle schimpfen sie darüber, wenn sie Ihren modernen CPC neben 
der alt-ehrwürdigen Schreibmaschine stehen sehen: Auf der einen 
Seite ein internationaler Computer ... natürlich auch mit inter- 
nationalem Zeichensatz (also ohne deutsche Umlaute und 'sz'), 
auf der anderen Seite die Schreibmaschine, die über all' diesen 
nützlichen Komfort verfügt, dafür aber halt (normalerweise) kein 


Computer ist. 


Mit diesem Programm machen wir aus Ihrem CPC ein Pendant zur 
Schreibmaschine zumindest was die Tastatur angeht: das 'z' sitzt 
dann da, wo es sitzen soll, nämlich beim 'y' - und entsprechend 


'ae', 'ue', "oe" sowie das 'sz' finden 


umgekehrt. Die Umlaute 
sich nun auch auf der Tastatur mehr oder weniger am gleichen Ort 


wie auf der Schreibmaschine. 


Nun werden Sie aber fragen, was denn mit den Tastaturbeschrif- 
tungen passiert. Die bleiben vorerst natürlich so, wie sie schon 
immer waren, es sei denn, Sie kleben kleine Zettelchen auf die 
entsprechenden Tastaturoberseiten. 


Und was geschieht mit den alten Zeichen, die eigentlich auf den 
neu belegten Tasten zu finden sind? Im Programmlisting ist die 
jeweilige Zuordnung angegeben (ab Zeile 180). Zum großen Teil 
wird die alte Tastaturbelegung - die internationale - durch 
gleichzeitiges Drücken mit der (CTRL)-Taste erzeugt. 


Sind Sie den deutschen Zeichensatz leid und wollen wieder auf 
der internationalen Tastatur hämmern? Entweder Computer ausstel- 
len oder ... von der Zehnertastatur die Taste '0' drücken -) 
wieder die alte = internationale Tastaturbelegung; später ein- 
fach die '1' von der Zehnertastatur gedrückt -) wieder die neue 
= deutsche Tastaturbelegung! Diese Umschalterei funktioniert 
allerdings nur, wenn Sie das Programm "Deutscher Zeichensatz" 
noch im Speicher haben. Vorsicht bei Anwendung von "RENUM' zum 
Umnummerieren! Die Funktionstasten '1' und '0' (Belegung siehe 
Zeile 120 und 130) müssen dann per Hand umbelegt oder das Pro- 
gramm dementsprechend umgeschrieben werden. 
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19 REM Deutscher Zeichensatz 

za REM CFC464 Basic Programme 

38 REM Copyright 1984 DATA BECKER % 

Rainer Lueers 

4A SYMBOL AFTER 32 

5@ REM Einlesen des deutschen Zeichen- 
satzes aus den DATA-Zeilen 

68 FOR m=1 TO 7 

7a READ a 

828 FOR n=1 TO 8 

98 READ atn) 

182 NEXT n 

112 SYMBOL a,a(tli),at2),a{(3),a(4),a(5),at 

8),a(7),a(8) 

124 NEXT m 

139 REM Funktionstastenbelegung mit 
Zeilennummer zur Aktivierung 
des alten (#) bzw. neuen (1) 
Zeichensatzes 

14@ KEY 1,."GOTO 168"+CHR$ (13) 

158 KEY 8, "GOTO 488" +CHR$ (13) 

1624 REM Neuer Zeichensatz DEUTSCH 


184 REM z-?y Z->Y CTRL z->z 
199 KEY DEF 71,1,121,89,122 

ZEad REM y-?>z Y->Z CTRL y-}y 

218 KEY DEF 43,1,122,9@,121 

22 REM ;3->ä +->A CTRL 3-35 

224 KEY DEF 28,1,123,91,59 

248 REM S->ü "ö"->ü 

2S5@ KEY DEF 26,1,125,93 

268 REM :->"6" %->Öö 

276 KEY DEF 29,1,124,92 

28@ REM t->"B" "#"->r CTRL T->"4" 

294 KEY DEF 24,1,126, 94,163 

zga REM Ä->: ä->% CTRL A->ä 
18 KEY DEF 17,1,58,42,91 

z2@ REM ü->: ü->+ CTRL ü-ü 

Z38 KEY DEF 19,1,.59,43,92 
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dürf 


rnis 


"RGMER” 


auf 


mehr ein. 


398 
3777) 
418 
4208 

38 
440 
458 
468 
47% 


>.» 
0 0 
Se 


2 u a u 


SS 


Sea 
Sao 


nen cn en a acenıen en 
Sı 


[ei 
S 


REM 6->8 

KEY DEF 22,1,64 

MODE 1 

REM Beispielsatz mit saemtlichen 


Umlauten und sz 


FRINT"Über den großen Fluß gehen zu 


en, 


das bedeutet für mich ein Ärge 
ohnegleichen ... ich rufe laut 
.„.. mmh „.. ein löbliches Wort 


aah ... jetzt fällt mir nichts 


Alter Zeichensatz INTERNAT. 


y->z Y->Z CTRL z->"" 
DEF 71,1,122,98,2 
z->y Z->Y CTRL y->"" 
DEF 43,1,121,89,25 
ä->: A->+ 

DEF 28,1,59,43 

ü->8 U->"ö" 

DEF 26,1,64,124 
"ann: 8->% 

DEF 29,1,58,42 


„ge_yp +—>"4" CTRL "yt—y tt" 


DEF 24,1,94,162,3# 
:->ä X->ä CTRL A->" 
DEF 17,1,91,123,27 
3->0 +->ü ETRL ü-r"" 
DEF 19,1,93,125,29 
5-6 

DEF 22,1,92 


DATA-Zeilen mit deutschen 


Umlauten in Klein- und 


Grossschrift und dem sz 


998 


REM der Buchstabe "sz’ 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


126 


«x 
ur 


ur 


REM der 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


123 
«x 
ur 
ur 


REM der 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


124 
ur 
Ux 
«x 
ur 
x 
«x 
ur 


ur 


REM der 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


29 


ur 
%& 


” 


12a DATA x 


19195 DATA 


8 


ur 


a1l11dad 
11291198 
112811928 
1111109@ 
119281108 
11221108 
111112048 
11082940 
Ruchstabe ’ae’ 
a11g1188 
Badangan 
a1111228 
agaaıı1dr 
a11l111g 
11221109 
a1112119 
[2727274727272] 
Buchstabe "oe" 


B11@112D8 
BEBDRASE 
82111104 
g1122119 
21122G118 
a11am119 
22111108 
2RBRMDDR 
Buchstabe ’ue’ 
gı1i1z11gdd 
22R2D0AD 
B11BB11D 
s11am11d 
Aa11aa112 
2a11lazıı1f 
aaıı1111 
aaa 


18224 
19232 
1248 
1958 
12658 
19782 
1208 
12498 
1198 
1118 
1128 
1138 
1148 
1158 
11628 
1178 
11820 
1198 
1288 
121% 
1228 
1238 
1248 
1258 
1268 
1278 
1298 
1298 
1202 
1218 


REM der 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


31 
ur 


ur 
ur 
un 


ux 


REM der 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


92 
&ux 
ur 


u 
ur 


REM der 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


DATA 
DATA 


93 


&x 


Ruchstabe 


zgııgaıılad 
PP Pa 742721217277] 
BAG 1ADD 
23111128 
Aa11öß119 
a111111 
B11zgııld 
BORBDAHET 
Buchstabe 


gıılarıaz 
[222] 722277272] 
g11111898 
112229119 
11292110 
11229110 
gı1111ad 
LBRARBAD 
Buchstabe 


B11W11DO 
K4P2Pa 7272772] 
2112118 
zaı1laaııd 
a11daııld 
31190110 
28a1111ad 
[2772717797277 


’AE”’ 


’GE”’ 


"JE? 
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roßen Fluß gehen zu dürfen, 


über den ? 
et für mich ein ärgernis 
das hedeu ich rufe laut ’RÖMER’ 


ichen ... 
ohnesle ein _ löbliches Wort auf . 
nichts mehr ein. 


he; x 
sän ". jetzt fällt mir 


Ready 
| 
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Mathematikzeichensatz 


Dieses Programm gliedert sich lediglich in zwei Abschnitte: 


In Zeile 410 bis Zeile 2560 sind in DATA-Zeilen 24 häufig vor- 
kommende mathematische Zeichen samt ihrer Bedeutung aufgeführt. 
Im einzelnen sind es folgende Zeichen, die auf der Tastatur 


durch (CTRL) und eine Buchstabentaste angesprochen werden: 


Bitte (CTRL) und die entsprechend angegebene Buchstabentaste 


zusammen drücken: 


Alpha a Beta b Gamma c 
nicht El.v. d Element v. e Integral f£ 
Pi g Sigma h Omega i 
unendlich j Winkel k Dreieck 1 
Viereck n Kreis o parall. q 
rechtw. zu r kongruent s aehnlich t 
leere Menge u 1 zui v ungleich w 
angenähert x proportional y angen.an 2z 


Wir haben hierzu die binäre Darstellungsform gewählt, um Ihnen 
die Möglichkeit zu eröffnen, die DATA-Zeilen nach eigenem Gut- 
dünken leicht zu verändern. Hierzu ein Hinweis: Sie dürfen pro 
Zeile nur acht Zeichen vergeben (jeweils Nullen oder Einsen; 
null bedeutet Pixel nicht gesetzt, eins bedeutet Pixel gesetzt). 


Jedes Zeichen muß genau aus acht Zeilen zu je acht Zeichen 
zusammengesetzt sein. Wird irgendwo nur eine DATA-Zeile zu- 
sätzlich eingefügt, so verändert sich der nachfolgende Zeichen- 


satz vollständig (probieren Sie es ruhig einmal aus!). 


In Zeile 80 bis 390 findet das Einlesen der DATAs durch "READ' 
statt. Um die binäre Darstellung auch richtig als Zahlwert zu 
deuten, muß die '01'-Darstellung als String eingelesen werden 
und vor der Umwandlung in eine zu verarbeitende Dezimalzahl 
('VAL') die Kennzeichnung '&x' = Binärzahl vorangestellt werden. 
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Nach dem Starten des Programms mit 'RUN' können die Mathematik- 
zeichen durch Drücken eines Buchstabens (siehe Tabelle oben) 
zusammen mit der Taste (CTRL) auf dem Bildschirm dargestellt 
werden. 


Da der normale ASCII-Zeichensatz auch weiterhin gebraucht werden 
soll, haben wir die als Zeichen sonst nicht darstellbaren 
(CTRL)-Codes 1 bis 26 mit den Mathematikzeichen belegt. ASCII- 
Zeichen 13 ließ sich nicht umändern, weil dieser Character 
bereits mit der Bedeutung "Cursor zur ersten Schreibstelle' 
vorbelegt war (ENTER)-Taste drücken. Auch ASCII-Zeichen 16 blieb 
ausgespart, da diese Taste bereits die Bedeutung hat: "Zeichen 
auf Cursorposition löschen'. 
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18 REM Mathematikzeichensatz 

28 REM CPC Basic Frogramme 

34 REM Copyright DATA BECKER % 

Rainer Lueers 

45 RESTORE 

Sad SYMBOL AFTER 1 

68 REM Neubelegen der 
ASCII-Zeichen 1 bis 12 

78 REM Ansprechbar durch 
<ETRL> und Buchstabe 

824 FOR m=1 TO 12 

928 FOR n=1 TO 8 

1d2@ READ as 

119 REM Umbenennen des eingelesenen 
Strings in eine Einaer- und 
dann eine Dezimalzahl 

122 a$(in)="&ıx "+a$ 

1228 atn)=VAL("Uux "+a$) 

14283 NEXT n 

152 SYMBOL m,at1),a(2),at2),a(4),a(5S),at 

H),at”)„,al8) 

162 NEXT m 

178 REM Neubelegen der 
ASCII-Zeichen 14 und 15 

188 REM Ansprechen durch 
<sETRL> und Buchstabe 

178 FOR m=14 TO 15 

za9 FOR n=1 TO 8 

219 READ as 

2249 REM Umbenennen des eingelesenen 
Strings in eine Binaer- und 


dann eine Dezimalzahl 


2308 a$in)="in "+tas 

248 atn)=VALÜU"tu "+a$) 

259 NEXT n 

268 SYMBOL m,a(1).a(2),a(3),a(4),a(5),at 
S9,adI,.a(8) 

278 NEXT m 

2829 REM Neubelegung der 


ASCII-Zeichen 17 bis 26 
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298 REM Ansprechen durch 
<CTRL> und Buchstabe 

388 FOR m=17 TO 26 

z1# FOR n=1 TO 8 

Z328 READ a$ 

328 REM Umbenennen des eingelesenen 
Strings in eine Binaer- und 
dann eine Dezimalzahl 

349 a$(n)="in "+ta$ 

z59 aln)=VAL(Ü"Rx "+a$) 

Z68 NEXT n 

378 SYMBOL m,at1),at2),atD,al4),a(S),at 

6),a1(7),a(8) 

388 NEXT m 

394 END 

45@ REM Es folgt die binaere Darstellung 
des Mathematikzeichensatzes. 
Vorangestellt ist jeweils in 
einer REM-Zeile die Bedeutung 
des Zeichens 

A414 REM Alpha 

424 DATA Beandane 

433 DATA 282111808 

44A DATA A2122102 

454 DATA A1IDRAD1ARD 

463 DATA B1ABA1R2 

478 DATA ZRA1BO1RRB 

489 DATA BRBR111DR 

494 DATA ARARDZELIN 

REM Beta 

DATA BORABQARZQ 

DATA g1111Q0@ 

DATA 212242108 

DATA 2121122392 

DATA 210BRA188 

DATA E12BG120 

DATA 21111888 

DATA 129222208 


en cn en en 
ndauUNne © 
RSS m 8 


N 
SQ 


[a ua A u Bu 
r 
ES 


o 
S 


5723 REM Gamma 
6a DATA SRnaRadz 
si DATA 12200108 
629 DATA B1BR2192 
623293 DATA AO1D1208 
648 DATA SaBıaaaz 
6529 DATA BRAB1A0RR 
8620 DATA BRR1DADH 
678 DATA BAB1AaRR 
63% REM nicht Element von 
8978 DATA MASRRDRAD 
788 DATA QaBBaı1an 
718 DATA Aazıı111a 
728 DATA B012910%# 
738 DATA 228111118 
743 DATA BA1OB1R8 
758 DATA 228111108 
769 DATA BRRRA1AS 
778 REM Element von 
788 DATA Baamaaan 
798 DATA BERNRDRD 
8A@ DATA BRZW11112 
818 DATA Da1azaaa 
82a DATA Za111119 
3324 DATA AB1BSRBE 
849 DATA 29411119 
852 DATA BRGOBBARR 
868 REM Integralzeichen 
8978 DATA Ad11aaaa 
8883 DATA SRAld1ARD 
898 DATA 22121282 
72a DATA AR1anGEE 
9719 DATA BA12ADRE 
23 DATA 18102002 
329 DATA 1281820004 
748 DATA zilamage 


758 
FH 
9778 
788 
Br] 
1092 
1818 
192% 
193% 
1949 
1957 
126 
1878 
12934 
1999 
1198 
111% 
1128 
1138 
1149 
1158 
1168 
1178 
119% 
1198 
12298 
12198 
1228 
123 

1249 
125 

126% 
1274 
1289 
1298 
1322 
1314 


REM Pi 

DATA geaaagaı 
DATA BARdadAn 
DATA 81111119 
DATA 221021208 
DATA ag1ag1ag 
DATA SEIAD1EON 
DATA alzaıdE 
DATA SBRBRDAD 
REM Sigma 
DATA BARARD2D 
DATA g1111111 
DATA Ba1azozı 
DATA aan aaag 
DATA BBR1BRaBR 
DATA galaaazı 
DATA gııı111l 
DATA BRRRAARH 
REM Omega 
DATA Banana 
DATA 32111198 
DATA Adıaaıal 
DATA G12R22A14 
DATA Z10ARE1ES 
DATA 2212829198 
DATA 11122111 
DATA 2BRRBRARDD 
REM unendlich 
DATA BEBBBRRZ 
DATA aaagaagd 
DATA 81181122 
DATA 182122108 
DATA 122102418 
DATA 18212210 
DATA g112110E2 
DATA 2RBABBRA 
DATA 2BRBBDRDR 
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12248 
1324 
12748 
135 

126% 
1372 
1294 
1298 
1498 
1418 
1428 
1438 
1448 
145% 
1468 
14798 
1482 
1490 
1500 
1518 
152% 
1520 
1549 
15350 
1568 
1574 
1588 
1574 
1688 
1618 
1628 
1638 
164% 
1654 
1668 


REM Winkel 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


127222777277 E72] 
ARE ah 
BERG IAD 
[77a B W777 72772 
BA1BRRB 
[a5 94 777477.5770) 
11111118 


REM Dreieck 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


[439727272 727772) 
aaa a] 
[27472 172777070) 
[27 7B 877772770) 
[auB 823 67727) 
1a 
11111114 
[apa 2) 7772] 


REM Viereck 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


1111111# 
122RBB1L 
12802210 
122002319 
19220210 
12008018 
11111119@ 
ABBREBAT 


REM Kreis 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


[a] 772207277) 
211111808 
122230912 
13202210 
12220810 
120001 
81111199 
2aagadade 


1678 
1698 
1698 
1728 
1718 
1728 
1738 
1748 
1752 
1768 
1778 
1784 
1798 
1828 
1818 
18228 
1838 
1848 
1958 
1862 
19798 
188% 
1898 
197298 
1718 
192% 
1738 
174% 
1958 
1964 
1778 
197898 
19794 
2828 
zB1 
2928 


REM parallel 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


2120120 
212091000 
2121220 
212212008 
2i1gd1agE 
B12RB120D 
B12G1000 
21BB12DDG 


zu 


REM rechtwinklig zu 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


BRB1ARDD 
2201 ADD 
BDALADDD 
sage 
2221 2ADR 
ABA1 DAR 
11111119 
2UDOBBDDA 


REM kongruent 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


2 @ 8777771777] 
12211881 
BRAD 1E 
BRABARABE 
11111111 
BRBARBDE 
11111111 
BLAAZDRE 


REM aehnlich, 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


ABRDBBADD 
[a72F7]7 77777777) 
BRADDADRD 
a1ıaaaad 
1830811081 
2aRaaı1d 
BBLRGRDD 
BAOADOREH 


proportional 
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hJ 
5} 
nauNe & 
SS SE SS NS 


SO N 
Ss Ss 8 


WA WW NN NN NN KM MN KH 
WA bh m [e2 
Ss m 8 S 


| 


N 
P- 
S 


HNMNMNMMNMNMNMNMNMNMHM HMM 


REM leere Menge 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


REM 1 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


REM nicht gleich, 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


REM angenaehert, 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


27472] 2] a Er) 
311111288 
12021214 
12212212 
12100218 
a11111o4 
1202A200 
BSBABADD 
zu 1 
ARBBDDA 
aaa 
BIBARBIE 
11111111 
2LIBBZAIE 
BaLazıdad 
BERBAZDBAD 
AARADDBDD 


Baal 
ZBARDADLE 
11111111 
BABD1DDR 
411111111 
Lara 847717777] 
[2B 87]7 772777077 
ARRAADDD 


ABABARaN 
2a112gaa00 
12211001 
BRAD 
B112RBAR 
1221120901 
ABABBL1D 
ARD 


ungleich 


nahezu gleich 
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a) 


N 
15 


ea» 
Ri 
Ss 8 


P-7 


WA N 


P-1 
Ss 8 


PT 
B-7 
S 


RI 
a) 


S 


Sana 
PUNRSOIDO NG 
SO SS Ss 


S 


NN NM MN NN NN MN NN NND NN MN 
[a] 


anen nen en cn N 


[en 
S 


REM proportional zu 
DATA aazagaagı 

DATA ZBASBAAD 

DATA g111@111 

DATA 12801222 

DATA 199001 A00 

DATA 12201028 

DATA gı11lgıil 

DATA Sagagaad 

REM angenaehert an Wert ... 
DATA AODZADDE 

DATA BR2BR1AB 

DATA 22280210 

DATA 11111111 

DATA ABA2AB1EQ 

DATA BRGAB100 

DATA 22220208 

DATA ZazaRand 


Computerzeichensatz 


Ehrlich eingestanden kann man feststellen, daß der Zeichensatz 
des CPC sehr schön aussieht. Obgleich die Zeichen wie auch bei 
anderen Computern nur in einer 8%8 - Matrix erstellt sind (je- 
weils 8 horizontal und 8 vertikal gesetzte oder nicht gesetzte 
Pixel), muten sie mit der gewählten Detailtreue (schaut man sich 
z.B. die '4' oder den Buchstaben 'n' an) schreibmaschinenähnlich 
an. 


Warum jetzt noch einen anderen Zeichensatz? Seit Jahren hält die 
Euphorie für Computerspiele an; warum soll für dieses futuri- 
stische Etwas der normale Zeichensatz herhalten - her mit dem 


entsprechenden Computerzeichensatz! 


Das Programm gliedert sich in zwei Hauptteile: 

1) Ein fast unübersehbares DATA-Zeichenmeer mit dem Computerzei- 
chensatz 

2) Die Verarbeitungs- und Laderoutine für die DATAS. 


Auf Punkt 2 wollen wir etwas näher eingehen: Der CPC stellt 
alles (auch Buchstaben und andere Zeichen) auf dem Bildschirm 
grafisch dar. So ist es im Gegensatz zu anderen Computern auch 
verhältnismäßig leicht möglich, nicht nur Text mit Grafik zu 
mischen, nein auch dasselbe Charakterzeichen mehrfach in unter- 
schiedlichem Aussehen auf der Bildschirmseite abzubilden. Dieser 
Zweck wurde im Programm "Computerzeichensatz' folgendermaßen 
ausgenutzt: Es kann einerseits der gesamte Zeichensatz in Compu- 
terschrift umgewandelt werden, es kann andererseits mit Normal- 
und Computerzeichensatz gleichzeitig gearbeitet werden. 


Mit dem komfortablen SYMBOL-Befehl dürfte Möglichkeit eins klar 


sein. 


Wie werden aber zwei Zeichensätze gleichzeitig im Speicher ge- 
halten? Hierfür ist es notwendig, daß das Programm weiterläuft, 
denn so viele verschiedene Zeichen kann man nicht so einfach 
gleichzeitig mit der Tastatur ansprechen. Dafür haben wir nun 
bei laufendem Programm einen Schalter zwischen den Zeichensätzen 
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eingebaut: (TAB) gedrückt -) Computerzeichensatz an, (TAB) wie- 
der gedrückt -) Normalzeichensatz an usw. 


Programmtechnisch spielt sich folgendes ab: Der ASCII-Code des 
gewünschten Zeichens wird interpretiert (z.B. '!' = 33); dazu 
wird das entsprechende Computerzeichensatzild gesucht und ... 
nicht mit 'SYMBOL' über unseren gewählten Buchstaben in Normal- 
schrift gelegt (dann wäre dieser nämlich fortan Computerzei- 
chen!) ... in ein nicht benötigtes Zeichen ('CHR$(255)') gela- 
den. Letzteres Zeichen wird daraufhin immer und immer wieder, 
jedoch in dem gewünschten Aussehen, als Computerschriftzeichen 
zur Abbildung gebracht. 


i i in! Soll es ın 
Bitte eben, Sie etwas ei j 
’ schrift’ erscheinen so druek 

som Yerhitte vorher die <TaB>-Taste. 
in Normalschrift weitergeschrie- 
so druecken Sie itte wie- 
der TAB>-Taste. Sollen alle 
Zeichen von nun an <auch das Listing) 
in Computerschrift erscheinen, so 
druecken Sie bitte Jetzt die Taste ,? 


n 


7: far n=302 to 2S5:print chr$iad; next 
uen$,.&'[L)3%*+,- ./DOLcC3LS6bPB9: ; <=) ?PBABCEDEFG 
gast 


| JKLNNOP UVUNYZELN]t_\“abrdefghi ik Imno 
Par ch 
z u CO PnEEYSKuEn 


AN 7 IS 4 YAaOS 
BE PRSSY SPA Pe 
LTEIT] 

1i5t_20 

0 REN Computerschrift 

Br 
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1# REM Computerschrift 
22 REM CFPC464 Basic Frogramme 
z8 REM Copyright 1984 DATA BECKER % 
Rainer Lueers 
45 MODE 1 
Ssä DIM a(122,8) 
62 REM Umdefinierbaren Zeichenraum 
freigeben 
7& REM Einlesen der Computerschrift in 
die dimensionierte Variable a 
829 SYMROL AFTER 32 
72% REM Zeichencode und Zeichenausehen 
vorlaeufig in die dimensionierte 
Variable ’a” laden 
18294 FOR n=1 TO 73 
11d READ a 
128 FOR m=1 TO 8 
1309 READ as 
145 REM Umwandlung von der Stringdar- 
stellung in eine Binaerzahl und 
anschliessend in eine Dezimal- 
zahl 
159 a$="Ux "+a$ 
162 afta,m)=VAL (a$) 
17@ NEXT m 
1894 NEXT n 
1789 REM Auswahlmoeglichkeiten: 
1) bei laufendem Programm 
Text in Computerschrift oder 
Normalschrift einzugeben 
2) den ganzen Zeichensatz in 
Computerschrift umzuwandeln 
za PRINT "Bitte geben Sie etwas ein! So 


ll es in "Computerschrift’ erscheinen, 
so druek- ken Sie bitte vorher die <TAR 
>-Taste. Soll in Normalschrift weiterg 
eschrie- ben werden, so druecken Sie b 
itte wie- der die <TAR>-Taste. Sollen a 
i1le" 


71 


218 FRINT "Zeichen von nun an (auch das 
Listing) in Computerschrift erscheinen 
ı 50 druecken Sie bitte jetzt die 
Taste j"53:a$="":1INPUT a$ 

222 a$=UFPER$(a$): IF a$="J" THEN GOTO 51 


22483 REM Der Normalzeichensatz bleibt 
erhalten, nur einzelne Ruchsta- 
ben werden auf Wunsch in Com- 


puterzeichen umgewandelt 


24A FRINT 

25@ FRINT "Bitte jetzt Text eingeben" 
264 FRINT 

278 a$=INKEY$ 

2828 IF a$="" THEN GOTO 279 

298 REM Kleiner Texteditor: Die Tasten 


<ENTER>=13, ZTARB>=9 und “DELETE: 
=127 werden interpretiert 
288 IF ASC(a$)=9 THEN GOTO 368 
319 IF ASC(a$)=13 THEN PRINT:GOTO 27% 
s22M IF ASC(a$)=127 THEN a$="":IF POS(#@) 
>1 THEN LOCATE POS (#8) -1,.VPOS (#8) :FRINT 
"2:2LOCATE POS (#8) -1,VFOS(#8):G0OTO 278 
za@ PRINT as; 
3424 GOTO 27% 
359 END 
362 a$=INKEY$ 
278 IF a$="" THEN GOTO I68 
389 REM Kleiner Texteditor: Die Tasten 
sENTER>=13, <TAB>=9 und <DELETE} 
=127 werden interpretiert 
394 IF ASC(a$)=9 THEN GOTO 278 
4828 IF ASCta$)=13 THEN FRINT:GOTO 36% 
419 IF ASC(a$)=127 THEN a$="":IF FOS(#M) 
>1 THEN LOCATE FOS (#8) -1,VPOS(#8) :FRINT 
""2:LOCATE POS(#8)-1,VPOS(#8):G0T0 I68 
ELSE G0OTO 36% 
428 IF ASCta$) 122 THEN FRINT 3$::G0T0 35 
je 12) 


428 IF atASctas),1)=2 AND atASC(a$),2)=# 
AND atASCta$),2I=8 AND atASCta$),4)=8 A 
ND atASC(a$),S)=@ AND atASC(a$),6)=8 AND 
atASC(a$), 7”)=8 AND atASCta$),8)=2 THEN 

FRINT a$;:6G0T0 I68 

448 REM Damit der normale Zeichensatz 
nicht zerstoert wird, wird jedes 
Zeichen als ein umgewandelter 
CHR$ (255) dargestellt 

A522 z=ASC (ta) 

469 SYMBOL 255,a(z,1),a{z,2),a(z,3),a(z, 

4),a(z,S),atz,6),a{z,7),a(z,8) 

47% FRINT CHR$ (255): 

484 GOTO 368 

478 END 

S28 REM Einlesen der Computerschrift und 

direkte Veraenderung des 
normalen Zeichensatzes 

RESTORE 

FOR n=1 TO 73 

READ m 

FOR o=1 TO 8 

READ p$ 

REM Umwandlung von der Stringdar- 


Nah m 
SB Sm 9 m 8 


en cn cn cen en ch 


rn 
S 


stellung in eine REinaerzahl und 
anschliessend in eine Dezimal- 
zahl 

Ss78 ps="i "+p$ 

59829 b(o)=VAL (p$) 

592 NEXT o 

&Ea SYMBOL m,b{1).b(2),bB(D,b(4),b (5) ,bi 

6).b(7),b(8) 

61@ NEXT n 

628 END 
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[2817] 
644 
658 
66% 
67% 
688 
678 
722 
7ı9 
728 
738 
aa 
758 
76% 
778 
784 
7998 
= 17)7] 
81 
828 
834 
8498 
852 
869 
878 
982 
874 
7838 
719 
9728 
732 
748 
758 
9764 
9778 
788 
7978 
1228 
121% 
1228 


REM ! 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM " 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM # 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


z 
_ 


iS 


2a 11dml 
BAL11RUR 
Aa111098 
2Ba111222 
gas 1a 
ARADHNDE 
[72 87777) 
2EBAADRD 


34 

B11gd@117 
21122110 
a11aaı18 
AIADDDAD 
zBagaaaadı 
[aaa] 217 ]7] 
AOABRRAR 
2BIBRARRDN 


39 
a11azaı1d 
11111111 
a1ılzaı1a 
B1122118 
11111111 
21182112 
Bagdad 
ADDDARDE 
397 
naar 
BRA11ABB 
[24] 2B 8 E77 77] 
ARABABAE 
[77217 727777172772] 
[4121227727727 77) 
sagaaage 
BRSSADAN 
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REM 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM ) 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


REM 8 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 1 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


a8 

Aaaııı119 
SBarlı1ddr 
aaa 
2a 11222 
oe ee 5277] 
ZBaı112Dn 
@aı111119 
BBADARED 


41 

a111ızag 
aaa 
2a 8777772) 
gagııı1d8 
aaa 1aa 
2BRB11188 
a1ı11ı1ı1aa 
BRBRAABDE 


48 

aıııtil 
2sı1adell 
sılgagzii 
zı11egmıl 
sııaazıi 
saı1laazıl 
aııııı1ill 
AARON 


47 

27 85 671775) 
naar 
122775 8 02770772] 
2RB1 1208 
aaıı1ı111 
aaı1ı1119 
aaılııııg 
Papa 771201077277) 
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1432 
1448 
1458 
1468 
147% 
1488 
14978 
15982 
1518 
1528 
1529 
1548 
15959 
1564 
1578 
1588 
15978 
16298 
161% 
1628 
1638 
1642 
1654 
1668 
1678 
1688 
1698 
17239 
1718 
1722 
173% 
1748 
1758 
1768 
1778 
1788 
17978 
18294 
1918 
1829 


38 

gı11111i 
[424P 72 8 
Ssaagazaıl1 
gıı1ı1il 
[DB 8477777777 
[2 87.72 7277.77) 
aııı1111 
2aRandade 


Si 

gi11111 
ARDABLLE 
Beagle 
zırııııi 
Bagagııi 
2aaaaıı1i 
11111111 
BARDADE 


52 

a1ı11aaaa 
21112aRaR 
a1ı12aad 
gı118111 
aı11a11l 
gıı11111 
aaaaaıı1i 
arm 
Sa 

aı1ıı11l 
211agada 
[2 @ 8477773777) 
zııı1111 
aanaaııi 
2RABAgıı11 
aııı1111 
BBABEBRAK 


REM & 

DATA 54 

DATA 1111198 
DATA ai1laııal 
DATA 211gagan 
DATA gıııiliid 
DATA a11gamıil 
DATA a11laamzııl 
DATA z@ı1111111 
DATA SRgRRadı 
REM 7 

DATA 55 

DATA gı111ıiil 
DATA BRRABEZBILI1 
DATA ARnazeıi 
DATA gugııııı 
DATA aaa 1a 
DATA Aga11adl 
DATA aaa ı1ade 
DATA SeBRARABAZ 
REM 8 

DATA 56 

DATA S@ı111119 
DATA agııaıılm 
DATA A112a119 
DATA z1ı111ıil 
DATA @i11gıll 
DATA 2111111 
DATA aııııılil 
DATA BOBRABDE 
REM 9 

DATA 57 

DATA zgi111111 
DATA a1122211 
DATA ailigazıl 
DATA giıiilıil 
DATA Aumzzııl 
DATA Z2agaııil 
DATA auaazııi 
DATA SBRAdaE 


Mm 
1} 
DA 


S 


PS 
I} 


N N 
{n 


SONG 
Se 


Ss 


NMMNMMN KM M 


AN MN MN 


Ss © 


AN 


N MN KH 
WA N 
S 


Ss 


NNMN MM 


RER er 


SS one» 
SS SS SS ıS 


N 


PS 


N 
> 
2 
Ss 


> 


18) 


S 


> 
IN 
S 


> 
2 


2» 
cr un 
S 


a a 
NS 


SS 


NN N NN NN NN MN NN 


an en en ch 
BUN 
SS 


en en 
ou 
S 


NMMN KIN 


aa 


REM : 

DATA 58 

DATA Basaaaad 
DATA 221 10RE 
DATA 2BR11200 
DATA SaoBadad 
DATA aa 1adl 
DATA 2ER 12R8 
DATA BaBananE 
DATA 2RRBRBQA 
REM ; 

DATA 59 

DATA Zamaadae 
DATA 28211202 
DATA 2Ra11AR0 
DATA aRgDaRad 
DATA aaa lade 
DATA 2RB112M0 
DATA 281100 
DATA 2RRABARH 
REM = 

DATA 61 

DATA Bagagaagı 
DATA g@1111112 
DATA BARRDANE 
DATA AaBagddl 
DATA 81111118 
DATA ABRBBADRd 
DATA QRRaGadE 
DATA ZRBBRRAD 
REM ? 

DATA 63 

DATA gı1111ll 
DATA Zi11mazıl 
DATA Zuaaagaııl 
DATA gazııııl 
DATA azaı1ı11aa 
DATA ZRBRBRDR 
DATA gazı 11a 
DATA saagandn 


REM 8 

DATA 64 

DATA gi11111i 
DATA B1120B11 
DATA aıımılil 
DATA gı1gı1li 
DATA a11@ı11ıl 
DATA B1122RER 
DATA a1iıııll 
DATA Augaagaz 
REM A 

DATA 65 

DATA gatrııııi 
DATA 2811282811 
DATA 22112211 
DATA gıiı1111l 
DATA @111@211 
DATA gi11azıl 
DATA @111@@11 
DATA ARaRSRBDr 
REM RB 

DATA 66 

DATA 1111118 
DATA B11EB11R 
DATA a11aaılı1d 
DATA gi11111i 
DATA zgıigalıl 
DATA gı11ı1aBı1i 
DATA gii1111i 
DATA AB2RDBAR 
REM C 

DATA 67 

DATA gi111111 
DATA a11galil 
DATA a11az11i 
DATA B112RR2S 
DATA B119A@11 
DATA gi1azmıl 
DATA aııı11il 
DATA Ananda 
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u E 
NM MN 
BUN 
Ss S 


IN 


er 

N N 
ana 
SS SS ON 


ie BR 


Aa N N 
n) 
RS 


(N 
N - 
b} 


u Be 7 
N 
A SQ 
SQ S & 


A a 

A 
B 
S 


REM D 

DATA 68 

DATA gi1ll111d 
DATA g11Bg11d 
DATA 21184119 
DATA gı11zıll 
DATA gı11@11l 
DATA giiigıiil 
DATA gıılıltıil 
DATA 202222008 
REM E 

DATA 697 

DATA gı111i11il 
DATA 21 1QARDU 
DATA 2g11gaaad 
DATA gııtmıiil 
DATA a11 1200 
DATA 8111800 
DATA @aıı1111l 
DATA 2RRRABDR 
REM F 

DATA 78 

DATA gı111111 
DATA Z11ABRRR 
DATA a11a2000 
DATA gı1lııiil 
DATA ai111gaan 
DATA 211120992 
DATA gi111Eand 
DATA 2EDBRRADE 
REM G 

DATA 71 

DATA gıııı1iil 
DATA g11@g211 
DATA 21 1RamA 
DATA g11gzı1ll 
DATA zi1galll 
DATA aı11a@11l 
DATA gıı11111 
DATA Zaadande 


REM H 

DATA 72 

DATA gi11@gs11 
DATA Sı111SBil 
DATA 21119811 
DATA gııı11ii 
DATA gi11gsıl 
DATA si11agıl 
DATA si11aaıl 
DATA ARaBadl 
REM I 

DATA 73 

DATA angel ı1az 
DATA Aadgı 1a 
DATA 2BRZ1 10 
DATA 2BRBE1 1A 
DATA @2111108 
DATA gz1ı11108 
DATA BB111128 
DATA 2ZRSSQRRS 
REM J 

DATA 74 

DATA Ban 1A 
DATA gazaııDg 
DATA SARA 120 
DATA 2BRAQW1 112 
DATA Agaaıı119 
DATA gilg1ı1ı1d 
DATA 21111118 
DATA ZRDBBABR 
REM K 

DATA 75 

DATA g11@211 
DATA gIi1ag11S 
DATA g11211208 
DATA gi1l1111l 
DATA gi1azı11l 
DATA 2e11magılıl 
DATA gi1lgaıll 
DATA BRRDRBDE 
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3834 
7848 
395% 
3868 
3874 
388% 
51-177) 
3908 
3910 
3920 
z924 
3948 
3959 
FIR 
397% 
3988 
3994 
LU) 
4819 
Aaa2a 
aaa 
4940 
45% 
4968 
4078 
4988 
48958 
4100 
4110 
4128 
4130 
4148 
4150 
4168 
417% 
4188 
4198 
4238 
a2ı0 


228 


REM L 

DATA 76 

DATA ag 1aand 
DATA GB1120D808 
DATA ga 1agaza 
DATA g1112RRB 
DATA g1112R00 
DATA 211122008 
DATA @11111198 
DATA ZRARRBRRD 
REM M 

DATA 77 

DATA si1lggıil 
DATA @aııııltil 
DATA @1111111 
DATA 1112111 
DATA 81180111 
DATA gı1lagıil 
DATA gıı1maı1i 
DATA gageazdd 
REM N 

DATA 78 

DATA gi11@zııl 
DATA 1112111 
DATA gi111111 
DATA giigıı1il 
DATA 112111 
DATA giiggııl 
DATA @ı11gzıill 
DATA 2EBRBRARD 
REM 0 

DATA 79 

DATA gı1l1ı1lll 
DATA g11gaaıi 
DATA B11Raa11l 
DATA gi1azııi 
DATA giı1azı1l 
DATA gııazııl 
DATA giiti1li 
DATA 2EVBRBRAR 


A2zB 
248 
258 

4268 
27 

4298 
298 

AzAB 

az10 

4328 

A330 

4348 

4358 

4z68 

4370 

4388 

4390 

4408 

4410 

aa2M 

4420 

A448 

4459 

4468 

447% 

4498 

4498 

4558 

4518 

4528 

4538 

4548 

45508 

4564 

457% 

4588 

4598 

A6nd 

4610 

4u28 


REM F 

DATA 08 

DATA zgı11111l 
DATA Si118B@11 
DATA si1ilgaaıl 
DATA giiili1lıl 
DATA sı11aaaıd 
DATA 21112 
DATA a1112a98 
DATA Sogagadn 
REM Q 

DATA 81 

DATA 1111111 
DATA Aliaagıl 
DATA a11Gazıl 
DATA aıissııl 
DATA aiımaııl 
DATA Ssıimaaııd 
DATA @ı1111111 
DATA aadagııl 
REM R 

DATA 82 

DATA zı111110 
DATA g11SB11@ 
DATA 1111 
DATA gıııııll 
DATA @aı11@11i 
DATA @aı11gııl 
DATA giı11gıti 
DATA BARERBAD 
REM S 

DATA 83 

DATA 1111111 
DATA A11202R0 
DATA z1111111 
DATA Zell 
DATA Bgıllagsıl 
DATA ei11ggı! 
DATA S1ı1111l 
DATA Sagegaaz 
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463% 
A6AB 
4658 
4668 
4670 
4680 
4690 
4708 
4718 
472 

4730 
4740 
4758 
4768 
477% 
4788 
479% 
4888 
4810 
4920 
4934 
4848 
485% 
486% 
4878 
4889 
4890 
4908 
4918 
4920 
4938 
4948 
4958 
4968 
4970 
498% 
4990 
saca 
S@1@ 


Ssa2a 


REM T 

DATA 84 

DATA a11lıiliti 
DATA geB11 1a 
DATA aaaı11BE 
DATA 22211100 
DATA 2aa11128 
DATA 22211198 
DATA Anzıııag 
DATA goganaag 
REM U 

DATA 85 

DATA g11@@111 
DATA gı1@@ıii 
DATA zgı1am111l 
DATA g11amıil 
DATA zsi11agıii 
DATA a11Bgııi 
DATA @1111111 
DATA BERRDRARN 
REM V 

DATA 86 

DATA gııaaııi 
DATA g11@@M111 
DATA sı1laaıil 
DATA a11gmııı 
DATA gı1lgııli 
DATA Z@111118 
DATA 2RB11108 
DATA BABRADAR 
REM W 

DATA 87 

DATA Ssi11gmıil 
DATA B11@B111 
DATA B11@B111 
DATA gi11sı1li 
DATA a1111111 
DATA @aı111111i 
DATA zi1azııl 
DATA 2BARDEAAD 
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REM X 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


REM Y 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


REM Z 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


REM a 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


88 

aı11maıil 
21112811 
aı1ı1azıl 
3821111198 
gaııaaıll 
zaııamı11il 
21182111 
BABDAREE 


87 

sııaaııi 
sııaaııi 
gııaaıii 
aıııı1il 
Aaaıı1a 
Bad 1 
Aaııı1dh 
ARABBAA 


78 

aı1ı111ii 
Z11RU112 
21121190 
BABIES 
aaıaııl 
zııamı1il 
aıııı11l 
ZB 
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BURDA 
Brad 
azgıı1ı111@ 
2777237772 7] 
aı11111g 
aıldgııd 
aı111119 
2577777 122232597 
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acencenencenencenen cn cn 
ancenenencencencnen cn ch 


[ex 


co oroeno 
SONG 


S 
DN! 
S 


SI 
Q 


S 
'Sı 


oacenencencen en en en en en en en cn 


an 

SON 

nn Be 5 
SQ 


n 


SON 
er {n 
SS 


ja 


a 


REM b 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


REM c 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


REM d 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


REM e 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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[214] 727 171777) 
a111aaaed 
a111aaad 
gı11111g 
aılıaııa 
21112112 
a1111119 
BBARDAAA 


99 

gagananın 
DERADRDE 
aıtıııda 
21110000 
11 1aaam 
7 Er177777) 
aıııııaa 
22000008 


1238 

[2472777277977] 
BRAD LE 
BARAALIE 
a11l11119 
a11m1ı11n 
a1121112 
aıııı1ıig 
ABADDADR 
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12] 72 Pe 72777] 
2BERDBRAD 
Zg111111@ 
21122118 
a1111119 
[ep 67727777277) 
sı111119 
BaBBagle 
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REM f 

DATA 182 

DATA aaamaaan 
DATA B@@1111 
DATA Aua1 1200 
DATA ga111118 
DATA aaa aaa 
DATA Sgal1ans 
DATA Bag ı1ana 
DATA AdggaazE 
REM q 

DATA 193 

DATA aaaanagı 
DATA auagaaan 
DATA @111111@ 
DATA gi11g111a 
DATA @11@1118 
DATA gilllılıa 
DATA Zaagı111 
DATA 81111119 
REM h 

DATA 194 

DATA zanaaaan 
DATA o1110aaa 
DATA a1110and 
DATA gillııan 
DATA aiiimııa 
DATA 8111gııM 
DATA a11ıgııa 
DATA Sogaaaan 
REM i 

DATA 185 

DATA aaagasaa 
DATA ano 12a 
DATA ananaman 
DATA AR 1008 
DATA aaa ıaas 
DATA gg111ı0g 
DATA agı11198 
DATA Segpanagı 
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REM j 

DATA 186 

DATA BRandndag 
DATA 22221118 
DATA aBanadad 
DATA QABZ2B1112 
DATA A2aaı11E 
DATA Agagııı1a 
DATA ZaRg1119 
DATA @811111@8 
REM k 

DATA 187 

DATA ZanaRaald 
DATA 21 1ER 
DATA Aligaane 
DATA 21181188 
DATA s1111do 
DATA 21181188 
DATA 211211 
DATA 2RDDAADED 
REM 1 

DATA 188 

DATA nanaaand 
DATA gg1111@M 
DATA 28211100 
DATA 28211108 
DATA BRaıl1l1.9 
DATA ZBEF1110D 
DATA 211108 
DATA Annan 
REM m 

DATA 189 

DATA Baaaaand 
DATA zasaanaz 
DATA g11@@111 
DATA gi111111 
DATA @1111111 
DATA @1121811 
DATA Ssılaazil 
DATA Sawaaaad 
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[== 697] 
beta 17] 
6658 
6668 
6674 
[=Y=t=1 2) 
[=j=) 27] 
67038 
6718 
6728 
5730 
6748 
6758 
6764 
6770 
6798 
6774 
j=}= 1772) 
681g 
je 1= ir] 
Ba 
jet= 237] 
6357 
jei= 1077] 
6870 
698% 
68978 
rag 
8714 
sr2n 
7238 
6748 
6954 
Er 
6978 
678% 
E77 
7ADdaA 
zald 
FAZ 


REM n 

DATA 118 

DATA BEBADARE 
DATA ARASDAAM 
DATA @111111 
DATA gıllllig 
DATA Ssi1gal1f 
DATA S11gsıiı1d 
DATA a11a@11@ 
DATA BABASANE 
REM o 

DATA 111 

DATA snanaaad 
DATA BRAD 
DATA 111111 
DATA 21181110 
DATA g1ı1zıllg 
DATA @1121118 
DATA #111111%2 
DATA DRRRRAAAD 
REM p 

DATA 112 

DATA SRDRRAAR 
DATA SBBRBBAR 
DATA @1111118 
DATA 811111 
DATA aı1i1gı1ig 
DATA gı1li111g 
DATA 2111ER 
DATA B1112a2d 
REM q 

DATA 112 

DATA MBOBADE 
DATA 2RRBRDAR 
DATA gı1i1111g 
DATA gi1a111d 
DATA a11aı11ı1d 
DATA A111111 
DATA 2aazıı11d 
DATA ZB 11 


F7aza 
7a 
7358 
736% 
7378 
7388 
74978 
719% 
7118 
7128 
713% 
7148 
715% 
716% 
7178 
7188 
7198 
7ZAM 
7z1%# 
7ZZA 
7228 
724% 

253 
726% 
7278 
728% 
72978 
7328 
7219 
7328 

33 
7343 
7254 
7364 
7278 
7288 
72978 
7488 
7418 
7428 


REM r 

DATA 114 

DATA 2BODABAAA 
DATA aozagagz 
DATA @111111 
DATA 81112118 
DATA a1112202 
DATA 211122@BZ2 
DATA g111aaad 
DATA ABARBRRE 
REM s 

DATA 115 

DATA Zaaaaane 
DATA auagamadı 
DATA @1111118 
DATA 21 1ABROR 
DATA 11111182 
DATA gagz111d 
DATA @1111118 
DATA 22A0BRD3R8 
REM t 

DATA 116 

DATA 2agagadız 
DATA 21112002 
DATA 21111118 
DATA SB111008 
DATA 22111920 
DATA 22111200 
DATA agıılııd 
DATA aaaoadanı 
REM u 

DATA 117 

DATA daganazgı 
DATA SERRABDDB 
DATA a11z111f 
DATA 811211192 
DATA 1121119 
DATA gi1g111d 
DATA 1111118 
DATA Sansa 
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REM v 

DATA 118 

DATA Aaazazag 
DATA Zoasanad 
DATA zi1ailig 
DATA gı1a111d 
DATA S11d111d 
DATA 82111142 
DATA ARzı 13a 
DATA 2BaBRDddz 
REM w 

DATA 119 

DATA Samaazaı 
DATA BEAAABRR 
DATA 21102211 
DATA gı1aıSaıl 
DATA @1111111 
DATA 1111111 
DATA AR11a11d 
DATA DBRASRBBD 
REM x 

DATA 126 

DATA 2angadae 
DATA 2RBBRRASR 
DATA g118B119 
DATA GB111188 
DATA BRR11A0R8 
DATA Agd111198 
DATA B11azı11d 
DATA BRAMBDTER 
REM y 

DATA 121 

DATA Band 
DATA 2aRaRadz 
DATA a11B11ıd 
DATA 21121118 
DATA 21181118 
DATA 81111118 
DATA ABagı1ı119 
DATA Sı1111118 
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7Bz2 
7848 
7858 
7868 
7878 
7888 
789% 
79788 
771% 
79728 
7939 
7748 


REM z 

DATA 122 

DATA Zunge 
DATA BBBRADBER 
DATA 81111118 
DATA Adadıı1an 
DATA aaa 1a 
DATA gaı1Dnda 
DATA @111111%8 
DATA SABBRADBRD 
at=INEEY$: IF as="" 


THEN GOTO 


FRINT ASC(a$):GOTO 7938 


79728 


Errormeldungen 


Manchmal ist es wie verhext: Man gibt sein lange Zeit ausgear- 
beitetes BASIC-Programm in den Computer ein und trotz größter 
Bemühungen, hier und da treten laufend Fehler auf. 


Da der CPC ursprünglich nicht aus Deutschland stammt, werden die 
Fehlermeldungen selbstverständlich in englischer Sprache ausge- 
worfen. Da der CPC zudem nicht über unbegrenzten Speicherraum 
verfügt, sind diese Fehlermeldungen oft nur ein allzu kurzer 
Hinweis ("Syntax error', 'Type mismatch' ...). 


Diesen Hinweis lernt der eifrige Computerprogrammierer mit der 
Zeit richtig kennen und zu verstehen, aber bis dahin ist es oft 
noch ein weiter Weg. Aus diesem Grund haben wir ein ausführli- 
ches Errormeldungsprogramm in diese Programmsammlung mit aufge- 
nommen. Da der CPC den Vorgabebefehl 'ON ERROR GOTO' kennt, kann 
er bei einem auftretenden Fehler so zu reagieren lernen, wie wir 
das wollen (er kann sogar selbst die Fehler teilweise korrigie- 
ren; bestes Beispiel dazu: Der CPC lädt Daten von Kassette; 
schließlich sind alle vorhandenen Daten eingelesen; normaler- 
weise wird nun bei weiteren Leseversuchen die Fehlermeldung 
ausgegeben: "EOF met'('EOF' = End of file); viel einfacher ist 
es da doch, in einer Errorbehandlungsroutine nach Auftreten 
dieses Fehlers ('ON ERROR GOTO') den noch offenen Datenfile zu 
schließen und im Programm dort fortzufahren, wo dies im Augen- 
blick sinnvoll erscheint. 


Zwar merzt unser Errormeldungsprogramm keine vorhandenen Errors 
aus (das kann pauschal so gehandhabt leicht zu unvorhersehbaren 
Folgen führen), dafür hilft es aber bei der Suche nach dem 
Fehler um so effektiver. Am besten Sie probieren es einmal aus! 
Geben Sie in Zeile 20 nur 'NEXT n' ein. Starten wir das Pro- 
gramm, so wird gleich der Fehler (Error 1 = "Unexpected NEXT') 
angezeigt und eine Lösungsstrategie zur Programmverbesserung 
angeboten. 
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Wie verfahren Sie mit Ihren bereits bestehenden Programmen? 
Zeilen so umnummerieren (Befehl 'RENUM'), daß sich keine Zeile 
mit dem Errorbehandlungsprogramm überschneidet (die Zeilennun- 
mern müssen größer als 10 und kleiner als 10000 sein). Nun 
gebrauchen Sie den Befehl 'MERGE' (siehe Handbuch), um die 
beiden Programme miteinander zu verbinden; anschließend mit 
'RUN' starten und versuchen, die Fehlermeldungen mit den vorge- 


gebenen Korrekturageboten positiv anzuwenden. 


Neben dem BASIC-Befehl "ON ERROR GOTO' hilft uns der CPC am 
besten weiter durch die Abfrage der Error-Zeilenvariable "ERL' 
und die Fehlermeldevariable 'ERR'. Fehler selbst erzeugen kön- 

nen wir schließlich mit dem Befehl 'ERROR'. 


Fehler in Zeile 20 ! 


In Zeile 28 steht der Befehl 

ohne dass vorher im Programm 
ein entsprechender ’FOR’-Befehl erfolgt 
ist. Es koennte auch sein dass Sie fuer 


eine entsprechende ’FÖR’-Schleife nur 


die falsche Variable mit ’NEXT’ ange- 
sprochen haben. 
Beam 
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18 REM Errormeldungen 
11 REM CFC454 Basic Programme 
12 REM Copyright 1984 DATA BECKER % 

. Rainer Lueers 
iz INK @,1:INK 1,24:INK 3,1,24 
14 ON ERROR GGTO 19224 
zZ8 REM Bitte Frogramm zwischen Zeile 

28 und Zeile 9999 eintippen 
oder einMERGEN 

7777 STOF 
14999 REM Beginn der ausfuehrlichen 

Errorbehandlungsroutine 
1891@ MODE 1:FEN 1 
132822 FRINT"Fehler in Zeile"ERL"!" 
19224 GOSUR 11424 
192948 REM Unexpected NEXT 
18954 IF ERR=1 THEN FRINT "In Zeile"ERL" 
steht der Befehl ":PEN 3 ELSE GOTO 18124% 
1968 FRINT "’NEXT’"3:PEN 1:FRINT ", ohn 
e dass vorher im Frogramm" 
1942973 PRINT "ein entsprechender ’FOR’-Be 
fehl erfolgt ist. Es koennte auch sein, 


dass Sie fuereine entsprechende ’”FOR’”-Sc 


hleife nur die falsche Variable mit ’N 
EXT’ ange- sprochen haben." 
192829 END 


1529929 REM Syntax Error 

ı1aı1aa IF ERR=2 THEN FRINT "Irgendetwas i 
st":FRINT "im Satzbau von Zeile"ERL ELSE 
GOTO 19158 

128118 FRINT "falsch bzw. irgendein Wort 
ist falsch geschrieben. Man spricht vo 
n einem ":FEN Z:PRINT "SYNTAX ERROR" 
ı:FEN 1:PRINT "." 

12128 FRINT 

15124 END 

183145 REM Unexpected RETURN 
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123158 IF ERR=Z THEN FRINT "In Zeile"ERL" 

steht der Befehl":FEN Z:FRINT "RETURN"; : 

FEN 1:PRINT ", ohne dass vorher im" ELSE 
GOTO 19198 

18168 FRINT "Frogramm ein entsprechendes 
Unterpro- gramm mit °’GOSUR’ aufgerufe 

n wurde." 

18178 END 

193186 REM DATA exhausted 

18198 IF ERR=4 THEN FRINT "Es sollen nac 
h Ihren Wuenschen noch weitere ";:PE 
N S:FRINT"DATAS"z:FEN 1:FRINT " eingeles 
en werden." ELSE GOTO 1923# 

19288 PRINT "Dafuer reicht die angegeben 
e Menge der DATAS aber nicht aus. Viell 


eicht wurde auch zum nochmaligen Lesen 


der DATAS mit dem Befehl ’READ”’” nur e 
in entspre- chender DATAruecksetzbefehl 
wie "RESTORE” vergessen." 

ı1@21@9 END 


18228 REM Improper argument 

18238 IF ERR=S5 THEN PRINT "Ein Farameter 
oder ein "::PEN Z:PRINT "Argument";:PEN 
1:PRINT " wur-" ELSE GOTO 18278 

19249 FRINT "de falsch angegeben. Sie ko 

ennen z.RE. nicht beliebige Zahlwe 

rte fuer den ”SOUND’ oder den ”’ENV’-Befe 

hl verwenden.Eitte schauen Sie im Handbu 

ch nach!" 

1292529 END 

129262# REM Overflow 

13274 IF ERR=& THEN FRINT "Der Schneider 

-Computer registriert einen ";:FEN 

S:PRINT "OVERFLOW";:FEN 1:PRINT"; das be 

deutet einen" ELSE GOTO 1932% 
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1232885 FRINT "Veberlauf, da in Zeile"ERL" 
versucht":FRINT "wurde, eine Zahl darzus 
tellen, die ueber die Darstellungsm 

ceglichkeit von Zahlen hinausging (groe 
sser als 1.7 E-38). Vielleic 

ht haben Sie auchdie Umwandlung von Zahl 
en in andere" 

19298 FRINT "Zahldarstellungen bei unerl 
aubter Groesse angestrebt.” 

19222 END 

1243123 REM Memory full 

1a2229 IF ERR=7 THEN FRINT "Speicher oder 
englisch ";:FEN 3:PRINT "MEMORY";:FEN 1 
:FRINT ” voll." ELSE GOTO 19384 

133328 PRINT "Das ist ein starkes Stueck, 
wenn Sie denSpeicher mit einem reinen E 
ASIC-Frogrammvollgeschrieben haben. Am b 
esten, Sie schauen das Frogramm noch e 
inmal durch, wo vielleicht Kuerzungsmoeg 
lichkeiten bestehen z.R. sind ’REM’-Ze 
ilen nur zur" 

12344 PRINT "Dokumentation des Frogramms 
noetig. Vebrigens ... Sie kommen sc 
hnell zu ei- nem vollen Speicher, wenn S 
ie die Dimen-sionen von Variablen zu hoc 
h auslegen oder nacheinander in zu vie 
le Unterpro- gramme oder "’FOR...NEXT’-Sc 
hleifen ver-" 

142358 PRINT "zweigen." 

103628 END 

153378 REM Line does not exist 

18384 IF ERR=8 THEN PRINT "Sie wollen ei 
ne Zeile im Frogramm an- springen, die 
es ueberhaupt nicht gibt oder in engli 
sch: "3:FEN Z:PRINT "LINE DOES NOT EXIST 
"s:PEN 1:FRINT "." ELSE GOTO 19428 

18398 PRINT "Vielleicht haben Sie da ein 
en Schritt zu weit gedacht oder gar vo 
rhin das Fro-gramm umnummeriert und die 
gleiche Feh- lermeldung {(s.c.) ignoriert 
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19420 END 

1841#5 REM Subscript out of range 

18428 IF ERR=9 THEN PRINT "Das ";:PEN 3: 
FRINT "SUBSCRIFT"3:PEN 1:FRINT " (die Gr 

oesse der gewaehl-" ELSE GOTO 18478 
194328 PRINT "ten Dimension einer Variabl 
en) ist in Zeile";ERL;"zu gross. Entwe 

der haben Sie":PFRINT "vorhin vergessen, 
die Variablen mit "DIM’” zu dimension 
ieren oder aber Sie haben gedacht, der 
Schneider -Computer" 

195445 FRINT "koenne mehr als 11 Variable 

n,„. die einer Variablen zugeordnet sind o 

hne Dimen- sionierung verkraften." 
14452 END 

10458 REM Array already dimensioned 
184738 IF ERR=12 THEN PRINT "Die Dimensio 

nierung mit ";:PEN 3:PRINT "DIM"z:PEN 1: 

FRINT " wurde" ELSE GOTO 1251%# 

15489 PRINT "schon einmal vorher im Prog 

ramm fest- gelegt. Es ist nicht moegli 

ch, in Zei- le"zERL; "noch einmal, ohne 

vorher":FRINT "’CLEAR’ gesagt zu haben, 

neu zu dimen- sionieren." 

144928 END 

185229 REM Division by zero 

1835128 IF ERR=11 THEN FEN 3:PRINT "DIVISI 

ON": :PEN 1:PRINT " durch 2 ist nicht erl 

aubt.":PRINT "Hier ist es dennoch gesche 

hen! Ritte im Frogramm nachsehen, wie es 
dazu kommen konnte (auch Variablen in 

der Fehlerzei-le ueberpruefen)." ELSE GO 
TO 18542 

185229 END 

19532 REM Invalid direct command 

145423 IF ERR=12 THEN PRINT "Als direkte 

Befehlseingabe (";:FEN 3:PRINT "direct": 

FRINT "command";:PEN 1:FRINT ") ist dies 
so nicht statthaft" ELSE GOTO 19598 
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18558 PRINT "(z.B. "A$=INKEY$”’ zur Tasta 
turabfrage). Eitte diesen Befehl in ein 
Frogramm ein-binden und dieses mit ’RUN’ 
starten." 
19568 END 
19578 REM Type mismatch 
12584 IF ERR=13 THEN FRINT "Sie haben de 
n falschen Variablentyp":PRINT "(";:PEN 
3:PRINT "TYPE MISMATCH"zS:FEN 1:PRINT ") 
ausgewaehlt.":FRINT "Entweder fragt man 
mit einer Variablen nur nach einer Zahl 
(Wariable A,RB,C...)" ELSE GOTO 10634 
18598 PRINT "und liest danach auch nur e 
ine Zahl ein (durch "READ* oder ’INPUT’) 


.„ oder man erwartet ein alphanumerisch 
es Zeichen bzw. eine Zahl und liest di 
eses mit einer Stringvariablen (A$,R 


$,0$...) ein."; 

10622 FRINT "Will man eine Zahl als Stri 
ng einlesen, so kann der String durch An 
wendung des Befehls ’VAL(...)’ wieder i 
n eine Zahl- variable zurueckverwandelt 

werden." 

19619 END 

19629 REM String space full 

129632 IF ERR=14 THEN PEN 3:PRINT "STRING 
S";:FEN 1:PRINT " finden keinen freien P 
latz mehr":PRINT "im Speicher. Es gibt z 
wei Moeglichkei- ten zur weiteren Strin 
geingabe:" ELSE G0OTO 198678 

1d6428 PRINT:FRINT "1) Das BASIC-Programm 


verkuerzen 2) Die vorhandenen St 
rings auf Kassette"; :PRINT " abspeiche 
rn und mit ”CLEAR’” den Stringspe 
icher loeschen. Danach kann die Neuei 
ngabe der Variablen erfolgen. 
195590 END 


1956283 REM String too long 
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186724 IF ERR=15 THEN FRINT 


eile";ERL;"v 
e ("s:FEN 3: 
") ist laeng 
1285824 FRINT 
ingt zu ver- 
big Strings 
uch nicht zu 
funktionen 
esserungs- 
18698 END 
197228 REM St 
1271@ IF ERR 
ette in Zeil 
RINT 
nicht 
18728 FRINT 
mplizieren 


"zu kom 


nipulations- 
GHT$’, ”’MID$ 
18728 END 


zu sehr" 


"Die in der Z 
erwendete":PRINT"Zeichenkett 
FRINT "STRING"; :FEN 1:FRINT 
er als" ELSE GOTO 19718 

"255 Zeichen. Dies ist unbed 
Deshalb nicht belie 
(durch 
oft die Stringmanipulations 
" INSTR” 


faktor einsetzen." 


meiden! 


erweitern ”+") und a 


wie usw. als Vergro 


ring expression too complex 
=16 THEN FRINT 
e";sERL:FRINT "ist 

plex"s:FEN 1:FRINT 
ELSE GOTO 19759 


"den String kuenstlich verko 


"Die Zeichenk 
"s:PEN Z:P 
". Bitte 


durch Eingaben von Stringma 


128744 REM Cannot CONTinue 


19752 IF ERR 
:PEN 1:PRINT 
unktion” 
1243768 PRINT 

END’, STOP” 
durch Druek- 
mer ermoeg- 

193778 FRINT 

FProgr ammun- 
en, als dass 
n erinnert, 

Progr ammab- 
124782 END 


funktionen wie ’LEFT$’, ’RI 
"oder ’INSTR’. 
=17 THEN FEN 3:PRINT "CONT"; 


"inue ist zwar eine tolle F 


ELSE GOTO 19A824 


"die eine Fortsetzung nach 
oder Programmunterbrechung 
sESC>-Taste fast im 

aber bitte VORSICHT! 


ken der 
licht, 

"In diesem Fall ist seit der 
terbrechung zu viel gescheh 
der Computer sich noch dara 
in welcher Zeile er mit dem 


lauf fortfahren soll." 


1287923 REM Unknown user function 


12822 IF ERR= 


EN 1:PRINT 


um mathe-"; 


18 THEN FEN Z:PRINT "FN"z:PF 
ist zwar ein toller Befehl, 
ELSE GOTO 1986% 
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12398123 FRINT "matische Funktionen, die du 
rch "DEF FN’ an anderer Stelle im Frogra 
mm definiert wurden, mit beliebigen Vari 
ablen auszu- rechnen. Äber in diesem Fal 
1 wurde in Zeile";ERL; "mit FN eine Fun 
kKtion" 


128928 FRINT "aufgerufen, die vorher uebe 


rhaupt nicht so definiert worden i 
st.":FRINT:FRINT "Ein Hinweis der Uebers 
ichtlichkeit halber: Definitionen s 
ollten immer zu Beginn des Programms i 


m sogenannten De-" 

19838 FRINT "klarationsteil festgelegt w 
erden." 

12842 END 

14959 REM RESUME missing 

1286241 IF ERR=19 THEN PEN 3:PRINT "RESUME 
"z:PEN 1:FRINT " sollte bei einer Interr 
uptsteu-" ELSE G0TO 1891%4 

14878 FRINT "erung mit ’”ON ERROR GOTO’ v 
erwendet wer-den, um in den aktuellen Pr 
ogrammablauf an der richtigen Stelle wie 
der ein- schwenken zu koennen. Sie k 
oennen ein- fach RESUME im Frogramm ein 
geben, so er-folgt die Frogrammweiterfue 
hrung an der" 

128982 FRINT "Stelle, wo der Fehler aufge 
treten ist. Sie koennen auch RESUME Zei 
lennummer eingeben, um an einer gewue 
nschten Fro- grammzeile fortzufahren." 
108920 END 

189223 REM Unexpected RESUME 

13918 IF ERR=28 THEN PRINT "Der Befehl " 
»:FEN Z:PRINT "RESUME" FEN 1:FRINT " is 
t in Zeile" ELSE GOTO 1896% 
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18922# FRINT ERL; "aufgetreten, ohne dass 
eine Feh-":PRINT "lerroutine (ausgeloest 
durch den Befehl ’ON ERROR GOTO’) im Pr 

ogramm aufgerufen wurde. Die Loesung des 
anscheinend ueber fluessigen RESUME 
koennte daraus resultieren, dass das 
eigentliche" 

1243938 PRINT "Programm nicht mit ’END’ ab 
geschlossen wurde und somit nun in die 

Fehlerbe- handlungsroutine reinrutsch 
t." 

14948 END 

129528 REM Direct command 

194969 IF ERR=21 THEN FRINT "Waehrend der 
Kassettenladung eines Pro- gramms wurde 
ein Befehl gefunden (";s:PEN Z:PRINT "DI 
-"zZFRINT "RECT COMMAND"3:FEN 1:PRINT "), 
der ohne Zeilennummer im" ELSE GOTG 11# 

[277] 

123978 FRINT "Programm auftaucht. Das dar 
f nicht so sein!" 

18984 END 

1899@ REM Operand missing 

118884 IF ERR=22 THEN FRINT "Manche BASIC 
-Befehle ergeben ohne Ver- wendung eine 
r Mindestanzahl von ";:PEN 3:FRINT "OFE- 
"=:PRINT "RANDEN"z:=PEN 1:FRINT " keinen 5 
inn. Z.R. der Befehl" ELSE GOTO 119334 
112129 PRINT ""SOUND’ muss mindestens aus 
der Angabe des gewaehlten Tonkanals un 

d der Ton- frequenz bestehen. ":PRINT " 
Z.B. "SOUND 1,199” und nicht °’SOUND®." 
110228 REM Line too long 

11932 IF ERR=23 THEN PRINT "Die Frogramm 

zeile ist zu lang (in eng- lisch:"::PEN 
S:PRINT "too long";:PEN 1:PRINT "); sie 
darf aus hoech-" ELSE GOTO 11874 

11244 PRINT "stens bis zu 255 Zeichen be 

stehen. ":PRINT:FRINT "Bitte korrigieren 

z.B. durch eine Auf- teilung dieser Zei 
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le in mehrere kleine Zeilen." 

11259 END 

11@68 REM EOF met 

11878 IF ERR=24 THEN FEN Z:FRINT "EOF":: 

FEN 1:FRINT " bedeutet END OF FILE." ELS 

E GOTO 11138 

1128885 PRINT "Es wurde irrtuemlicherweise 
in Zei- le";ERL; "versucht, eine Dat 

ei laenger" 

119978 FRINT "in den Computer einzuladen, 
als sie wahrlich lang ist.":PRINT:P 

RINT "Um diesen Fehler zu umgehen, gibt 

es folgende Ratschlaege:" 

11188 FRINT "Vor dem Einlesen von Daten 

von der kas- sette in einer Zeile nachfr 

agen: "IF EOF THEN CLOSE IN:GOTO 


E 


11112 PRINT "d.h. wenn EOF erreicht wird 


‚„ wird die Datei ordnungsgemaess gesch 
lossen und der FProgrammablauf an ander 
er Stelle fortgesetzt. Andere Moeglic 
hkeit: Die Anzahl der speichernden Fil 


es zuerst in der Datei ablegen. Beim Lad 

en zuerst" 

11128 PRINT "diese Zahl einlesen und die 
selbige als Zaehler fuer eine ’FOR...NE 
XT-Schleife verwenden." 

11138 END 

11148 REM File type error 

11154 IF ERR=25 THEN PRINT "Die Art des 

gewaehlten Files (";:FEN 3:FRINT "FILE": 
FRINT "TYPE"3:PEN 1:PRINT ") ist nicht k 
orrekt.” ELSE GOTO 11288 

111628 FRINT "Das Einlesen von Dateien mi 
t dem Befehl "OPEN IN?’ ist nur bei ASCII 
-Dateien moeglich. ”’LOAD’” bzw. ’”RUN?’ 
bzw. °’MERGE’hingegen laden nur Frogramm 
e, die mit "SAVE” direkt abgespeichert 
wurden thierwurde naemlich nicht Buchst 


abe fuer" 
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11178 PRINT "Buchstabe sondern BASICwort 


(=Token) fuer BASICwort verschluesse 
lt und so- mit auch verkuerzt abgespei 
chert." 

11184 END 


1119798 REM NEXT missing 

11222 IF ERR=26 THEN FRINT "Eine ”’FOR... 
"zs:PEN 3S:PRINT "NEXT"3:PEN 1:PRINT "”-Sc 
hleife besteht" ELSE GOTO 11258 

11218 PRINT "aus ”’FOR” und NEXT. Bei der 


Frogr amm- schleife in Zeile":ERL;"feh 
lt" 

112228 PRINT "offensichtlich ein NEXT! Bi 
tte nach- schauen und einsetzen." 


112328 END 

11248 REM File already open 

11258 IF ERR=27 THEN FRINT "Eine Datei, 

die mit dem Befehl ";:FEN 3:FRINT "OFEN 
"ı:PEN 1 ELSE GOTO 11344 

11268 PRINT "bereits geoeffnet war, darf 
in Zeile":PRINT ERL; "nicht noch einmal 

mit OFEN IN" 

11274 PRINT "oder OFEN OUT geoeffnet wer 

den. Das ist zudem sinnlos. Vielleicht 1 

iegt der of- fensichtliche Fehler darin 

begruendet, dass die Datei in einem and 


eren Fro- grammabschnitt oder nach de 
m Neustart des Programms zwar geoeffne 
t" 


11282 PRINT "(OPEN IN, OPEN OUT), jedoch 
nicht wie- der geschlossen (’CLOSE IN’ 
„ "CLOSE OUT’) wurde." 

11298 REM Unknown command 

11328 IF ERR=28 THEN FRINT "Ein Befehl i 
n Frogrammzeile";ERL ELSE GOTO 1133%@ 
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113218 FRINT "ist in dieser Anwendung dem 
Computer nicht bekannt ("s:FEN 3:PRI 

NT "UNKNOWN COMMAND"S:PEN 1:FRINT ")." 
113285 REM WEND missing 

11238 IF ERR=29 THEN FRINT "WHILE...";:P 
EN Z:FRINT "WEND"S:FEN 1:FRINT " bietet 
zwar gute Moeglich-" ELSE G0T0 11388 
11348 FRINT "keiten zur Erstellung von s 
trukturier- ten BASIC-Frogrammen. Sieh 
aben jedoch bis zu Zeile";ERL; "vergesse 
n,. eine" 

11358 PRINT "WHILE...WEND-Schleife im Fr 
ogramm mit":FEN 3:FRINT "WEND"z;:PEN 1:FR 
INT " abzuschliessen." 

112628 END 

11378 REM Unexpected WEND 

11388 IF ERR=324 THEN FRINT "WHILE..."5:F 

EN 3:FRINT "WEND"3:FEN 1:FRINT " bietet 
zwar gute Moeglich-" ELSE END 

11378 FRINT "keiten zur Erstellung von s 
trukturier-— ten BASIC-Frogrammen. Sie h 
aben jedoch bis zu Zeile";ERL; "vergesse 

n, eine" 

11908 FRINT "WHILE...WEND-Schleife im Fr 

ogramm vorherueberhaupt mit ";:FEN 3:FRI 

NT "WHILE"S:FEN 1:FRINT " zu eroeffnen." 
114120 END 

11425 FEN 3 

11438 REM Die Errormeldungen mit ihrer 

englischen kKurzerklaerung 

11448 IF ERR=1 THEN PRINT "Unexpected NE 
Ks 

11458 IF ERR=Z THEN FRINT "Syntax Error" 


11468 IF ERR=Z3 THEN FRINT "Unexpected RE 
TURN" ; 

1147@& IF ERR=4 THEN FRINT "DATA exhauste 
A 
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11489 IF 
ment"; 

11498 IF 
11598 IF 
11518 IF 
exist"; 
11528 IF ERR=Y 


of range"; 


ERR=5 


ERR=6 
ERR=7 
ERR=8 


THEN FRINT 


THEN FRINT 
THEN FRINT 
THEN FRINT 


THEN PRINT 


11578 IF ERR=124 THEN FRINT 


y dimensioned"; 
11548 IF ERR=11 
zero"; 
115585 IF ERR=12 
ct command" 
115658 IF ERR=123 
h"; 
11578 IF ERR=14 
full"; 
11588 IF ERR=15 
ong"; 
11598 
ssion 
11698 


IF ERR=16 
too compl 
IF ERR=17 
nue"z 
11681& IF ERR=18 
function"; 
116289 IF ERR=197 
ng"; 
11638 IF 
ESUME"; 
11648 
nd"; 
1165@ 
ing"; 
11668 
g"; 
11678 
11688 


ror"z 


ERR=24 


ERR=21 


ERR=22 


IF 


ERR=23 


IF 
IF 


ERR=24 
ERR=25 


THEN 


THEN 


THEN 


THEN 


THEN 


THEN 


en"; 


THEN 


THEN 


THEN 


THEN 


THEN 


THEN 


THEN 


THEN 
THEN 


FRINT 


FRINT 


FRINT 


FRINT 


FRINT 


FRINT 


FRINT 


PRINT 


FRINT 


PRINT 


PRINT 


FRINT 


PRINT 


PRINT 
PRINT 


"Improper Argu 
"Overflow"; 

"Memory full"; 
"Line does not 
"Subscript out 
"Array alread 
"Division by 
"Invalid dire 
"Type mismatc 
"String space 
"String too 1 
"String expre 
"Cannot CONTi 
"Unknown user 
"RESUME missi 
"Unexpected R 
"Direct comma 
"Operand miss 


"Line too lon 


"EOF met": 
"File type er 
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118924 IF ERR=26 
11789 IF ERR=2Z 
open"; 

11718 IF ERR=28 
and"; 

11728 IF ERR=29 
11738 IF ERR=IG 
END"; 

11748 PEN 1 


THEN 


THEN 


THEN 


THEN 


THEN 


117528 FRINT:FRINT 


117688 RETURN 


FRINT 


FRINT 


FRINT 


PRINT 


FRINT 


"NEXT missing 


"File already 


"Unknown comm 


"WEND missing 


"Unexpected W 
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Variablenreferenzliste 


Sss==2=2=23=322s2=2=2=2=2=2 222222 


Im Programm "Speicher 4' haben wir bereits kennengelernt, wie 
die jeweilige Zeilennummer und Zeilenlänge im Speicher abgelegt 
wird (Speicherstellen 368 und 369 enthalten die Längenangabe der 
ersten Zeilennummer, Speicherstelle 370 und 371 teilt uns mit, 
wie die erste Zeilennummer heißt usw.). Mit Programm "Speicher 
4' haben wir zudem eine einfache Möglichkeit an die Hand bekom- 
men, den Speicher nach einem bestimmten Wort mit bis zu sechs 
Buchstaben zu durchsuchen. Jedoch so mancher unter Ihnen wird 
sich fragen: "was kann ich damit denn sinnvoll anfangen?'. Nun 
ja, im Endprodukt haben wir dadurch einerseits den Speicher 
etwas näher kennengelernt, andererseits kann uns Programm 'Spei- 
cher 4' aber außerdem behilflich dabei sein, wenn wir gerade 
nach solch einer alphanumerischen Zeichenfolge suchen. 


Im Programm "Variablenreferenzliste' gehen wir mit ähnlichem 
Fundament an den Start, aber wieder folgt eine entscheidende 
Erweiterung: diesmal wird der Speicher nicht nur nach bestimmten 
Zeichenfolgen durchsucht, nein, es wird zudem eine Ordnung her- 
gestellt. 


Die gesuchten Zeichenfolgen setzen sich aus einer ersten Zahl 
(2, 3, 4 oder 13) und einer zweiten Zahl (0) zusammen. Diese 
Folge deutet darauf hin, daß hier eine Variable mit entsprechen- 
dem Variablennamen im Programm abgelegt wurde. 


Da der CPC die Möglichkeit bietet, Variablennamen mit bis zu 
vierzig Zeichen zu unterscheiden, müssen wir selbstverständlich 
den ganzen Variablennamen im Speicher aufsuchen. Dabei hilft uns 
(und natürlich insbesondere sich selber) der CPC ein starkes 
Stück weiter: während die ersten Zeichen eines Variablennamens 
immer normal abgespeichert sind, wird beim letzten Zeichen des 
Variablennamens jeweils das entsprechende ASCII-Zeichen + 128 im 
Speicher abgelegt. Besteht der Variablenname lediglich aus einem 
Zeichen (z.B. 'a', 'b'" oder 'c'), so gilt selbstverständlich das 
erste Variablenzeichen gleichzeitig als das letzte, und dies 


wird dann auch entsprechend abgespeichert (ASCII-Zeichen + 128). 


- 108 — 


Da es verschiedene Variablentypen gibt (String, ganze Zahl 
...), wird dies bei der Abspeicherung mitberücksichtigt und bei 
unserer Auflistung auch angezeigt. 


Was kann unser 'Variablenreferenzlistenprogramm' nun alles von 
dem und noch darüberhinaus? 


1) Es werden Variablen im Programmspeicher gesucht (Start des 
Programms "Variablenreferenzliste' mit 'RUN 10000') - bis Zeile 
9999 kann Ihr Programm lang sein. 


2) Steht der gefundene Variablenname alphabetisch an erster 
Stelle (von allen in Ihrem Program vorkommenden Variablen), so 
wird im Speicher = Programm weitergesucht, in welchen Pro- 
grammzeilen dieser gleiche Name zudem auftaucht. Auch dies wird 
am Bildschirm angezeigt. So wird mit der Zeit eine alphabetische 
Variablenliste auf dem Bildschirm erzeugt, die uns bei unserem 
"Basic-Programm-Debugging' (Fehlersuche) erheblich weiterhelfen 


kann. 


Probieren Sie das Programm doch gleich aus, indem Sie in Zeile 
10 bis 50 folgende Variablenzuweisungen eintragen: 


'10 a$="CPC464" 

20 b$="Computer" 

30 CPC=464 

40 DATABECKER!=464 

50 BASICPROGRAMME%=464' 


Nun starten Sie das 'Variablenreferenzlistenprogramm' mit "RUN 
10000'° und nach kurzer Zeit werden nicht nur die verwendeten 
Variablen, sondern auch die ensprechenden Zeilennummern am 
Bildschirm aufgeführt. 


Ist das Programm durchforstet, so schreibt der CPC den ver- 


brauchten Speicherplatz auf den Bildschirm (Angabe für Programm 
= ohne Referenzlistenprogramm). 
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Noch ein Hinweis: 


Je länger Ihr Programm ist, desto ausführlicher und damit 
aufwendiger muß der CPC seine Speicherdurchsuchung durchführen. 


Also: Bitte ein bißchen Geduld. 


Die Variablennamen werden erst einmal alphabetisch sortiert (das 
heißt im Computerhirn nicht nur alphabetisch sondern auch "vom 
großen Buchstaben zum kleinen'!), dann ihrer Zeilennummer - bzw. 
auch mehreren Zeilennummern - zugeordnet und schließlich im 
Rahmen einer Referenzliste auf den Bildschirm ausgeworfen. 


Der angezeigte verbrauchte 'Programmspeicherplatz' bezieht sich 
nur auf das Programm in den Zeilen bis 10000, denn die 
'Referenzliste' gehört ja schließlich nicht zum eigentlichen 


Hauptprogram dazu; sie fungiert lediglich als Utility! 


ROGRAMME7. 50 
CKER'! 40 


P 
oO 
E 


TON 
“DD 


ammspeıcherplatz: 101 Byte: 


= 


-"Computer" 


64 
ECKER ! -464 
PROGRAMME. -464 


Re 
lı 
10 
208 
Kis] 
40 
so 
Re 
u 
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12288 REM Variablenreferenzliste 
18@18 REM CPC454 Basic Programme 
192289 REM Copyright 1984 DATA BECKER % 
Rainer Lueers 
10934 CLEAR:DIM a$ (1A) 
12449 REM Kleinste und groesste 
moegliche Variable festlegen 
14952 mer ker $=5TRING$ (49, "z")merker1$=S 
TRINGS (44," 1") 
102580 MODE 1 
19978 z=368: a$="444" bb" HH" 
18284 REM Errechnen von Zeilenlaenge 
und Zeilennummer 
18994 a=FEEK (zZ) +256%XPEEK (z+t1) :b=SFEEE (z+2 
I+ZI6XPEEK (2+3) 
1@1@8 REM Berechnung konzentriert sich 
nur auf das Frogramm oberhalb 
der Variablenreferenzlisten- 
Berechnung 
18119 IF bir1ddadd THEN GOTO 19158 
1m174 GOSUE 18362 
12134 PRINT:FRINT "Frogrammspeicherplatz 
: "USING b$; z-A68; :FRINT " Bytes":FRIN 
T:END 
10144 REM Beginn der Suche nach 
Variablen im Speicher 
14158 FOR zi=z+4 TO zta:IF (FEER(z1)=13 
OR {FEEK(z1)>1 AND FEEH(zZI)<S)) AND PEEH 
(z1+2)=9 THEN GOSUR 12829# 
181688 IF z+t42yz+ta THEN NEXT zi 
19179 z=z2+ta 
1831898 GOTO 1288983 
185195 REM Welche Art von Variable” 


13 = normale Zahl 

A = String 

zZ = ganze Zahl mit °%’ 

4 = normale Zahl mit °!” 


ag IF FEEHK(z1)=12 THEN zz=iN 
18 IF FEEK(z1i)=3 THEN zz=3 
z2@ IF FEEEK(zi)=2 THEN zz=2 


19239 IF FEEH<(zZ1)=4 THEN zz=4 

15244 REM Laenge des Variablennamens 
untersuchen 

19258 IF FEEK(z1i+3)>128 THEN zz$=zz2$+CHR 

$((FEEK(z1i+2)-128)) ELSE zz $=2z $+CHR$ (PE 

EE(zi+2)):z1=zZ1+1:G0T0 198259 

1292689 REM Welche Art von Variable? 


13 = normale Zahl 

I String 

2 = ganze Zahl mit °%° 

4 = normale Zahl mit °!'” 


193278 IF zz=iZ THEN zz zZ 
193289 IF zz=3 THEN zz$ $ 
1298 IF zz=Z2 THEN zz$=zzZ$+"%" 
19292 IF zz=4 THEN zz$ $ 

n 


12431@ REM Erzeugen einer alphabetischen 
Ordnung, bevor die Variablen- 
namen mit Zeilennummer auf- 
gelistet werden 

19328 IF zz$imerker$ AND zz$>merkeri$ TH 

EN merker$=zz$& 

18533@ IF flag=i AND zz$=a$(zaehler) THEN 

FRINT b; 

19349 zz$="":RETURN 

1952509 REM Merken des Variablennamens 
und der Zeilennummer, wo er 
auftritt 

198268 IF flag=1 THEN flag=#:FRINT:GOTO 1 

437 ELSE flag=1:IF merker$=STRING$ (48," 

2"} THEN RETURN ELSE FRINT merker#t;:zaeh 

ler=szaehler+t1:a%(zaehler)=merker$:merker 

1$=merker$: mer ker $=STRING$ (49,"z") 

19278 GOTO 192978 
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Kalender 


Wer sich an den Umgang mit Computern gewöhnt hat, wird dem 
Programm 'Kalender' in dieser oder einer ähnlichen Form häufiger 
begegnen. Sei es nun das Programm '"Kalender' allein wie in 
diesem Fall, oder aber als Einbimdung in ein größeres Programm 
(z.B. "Terminverwaltung' - auch als Listing in diesem Buch 
enthalten). 


In jedem Fall geht es um die Aufaddition von Jahren, Monaten und 
Tagen, wobei als Endresultat der gewünschte Wochentag errechnet 
wird. 


Das vorliegende Programm teilt sich in drei Bereiche, die aus 
der INPUT-Abfrage zum gewnschten Jahr, Monat und Kalendertag 
resultieren. 


Die Jahreseingabe darf zwischen 1901 und dem Jahr 2000 liegen, 
wobei Schaltjahre automatisch registriert werden (Zeile 140). 


Bei der Monatsrechnung wird der eingegebenen Monatszahl entspre- 
chend der Name zugeordnet und die Höchsttageszahl festgestellt. 
Liegt ein Merker von der Jahreseingabe in der Form z=1 = 
Schaltjahr und m=2 = Februar vor, so wird der 29.Februar 
Schaltjahr mit hinzugezählt (Zeile 590). 


Schließlich erfolgt die Verzweigung zu den einzelnen Wochentagen 
(Zeile 750) und deren entsprechende Anzeige ('Der ... im Jahr 
... ist/war ein ...'), und falls erwünscht, so kann wieder von 
vorne begonnen werden, sprich ein weiterer Wochentag ausge- 


rechnet werden. 
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Bestimmung, des Wochentags 
u 961 


von 1 bis 2888 


Der 18 .November. im Jahr 1984 
ist/war eın Sonntag 


Wollen Sie noch einen 
Wochentag ausrechnen ( /N) ? U 
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12 
zu 
51%) 


48 


REM Kalender 

REM CFC464 Basic Frogramme 

REM Copyright 19784 DATA BECKER 4% 
Rainer Lueers 

INZ 2,1:1INE 1,24:INE 2,1,24:effekt=2: 


normal>1 


pi} 
je 12] 
7a 
32 
78 


5 


MODE 1 

FRINT 

FRINT 

PRINT 

FRINT " Bestimmung des Wochentag 
von 1981 bis Zaag" 


154 PRINT:FRINT 
118 REM Eingabe der Jahreszahl und 


Berechnung (u.a. Schaltjahr) 


128 INFUT "Jahr "5J 


138 IF j<19281 OR j>Zögeg THEN GOSUR 992:6 

OTTO 58 

148 IF INT(j/4)=j/4 THEN z=1 ELSE z=d 

1528 j1=2 

168 IF j=19@1 THEN GOTO 238 

178 FOR n=19@2 TO j 

18@# ji=j1t1 

198 IF INT ((n-1)/4)=(n-1)/4 THEN ji=j1+1 

zaa IF j1>6 THEN ji1=j1-7 

zı@ NEXT n 

2Z@ REM Eingabe des Monats und 
Berechnung (Name und Anzahl der 
Tage) 

z2z4 INPUT "Monat "sm 

249 IF mil OR m>12 THEN GOSURB 994:G0T0 5 

{2} 

254 ON m GOSUB 279,299, 319,339, 3539,370,3 


93,419,429,450,472,498 
268 GOTO Sid 

274 m$="Januar" 

285 RETURN 

2724 m$="Februar" 

89 RETURN 


219 m$="Maerz" 
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S 


1Sı 


N DI m 


SQ 


> 


& 


{n 


jan 
'S 


acaeacenenenen on 


an 


D} 


RETURN 

ms="April" 

RETURN 

m$="Mai" 

RETURN 

m$="Juni" 

RETURN 

m$="Juli" 

RETURN 

m$="August" 

RETURN 

m$="September" 

RETURN 

m$="Oktober" 

RETURN 

m$="November" 

RETURN 

m$="Dezember" 

RETURN 

RESTORE:FOR n=1 TO m 

READ mi 

NEXT n 

DATA 231,28,21,228, 31,2% 

DATA 21,231,29,21,398,31 

IF z=1 AND m=2 THEN m1=27 

REM Eingabe des Tages (Zahl) und 
Berechnung des Wochentags 

INFUT "Tag "st 

IF t=29 AND m=2 AND zi>1 THEN GOSUR 

3:G0T0 5% 

IF til OR t>mi THEN GOSUR 9943:G0T0 5 


t1=# 

RESTORE 

IF m=1 THEN GOTO 69%# 

FOR n=2 TO m 

READ mi 

ti=ti+tmi 

NEXT n 

IF z=1 AND m>2 THEN ti=ti+l 
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2) 
aa 
718 
728 
738 
“2j 
748 
758 
52-17] 
768 
778 
Fa='7] 


N) 
798 
sa8 
ein 
328 
838 
340 
359 
Bag 
374 
832 
874 
998 
91H 

er} 
za 
as 
75 
968 
978 
738 
998 


che 


192323 


ti=ti+t+ji1 


t1=t1- 
IF ti= 


FRINT 
FRINT 


FRINT 
ON ti 


PRINT 
FRINT 
INFUT 


"2f$ 


INT<t1/7)%7 
# THEN t1=7 


u Der"st3"."sm$;". im Jahr 


ist/war ein 
GOSUR 849,369,8929, 900, 929,948, 


Wollen Sie noch einen 
Wochentag ausrechnen ( / 


F$=UFPERS$ (FE) 
IF f$="N" THEN END 
RESTORE 


ECLS 


GOTO 68 


FRINT 


RETURN 


FRINT 


RETURN 


FRINT 


RETURN 


PRINT 


RETURN 


FRINT 


RETURN 


FRINT 


RETURN 


FRINT 


RETURN 


END 


"Sonntag" 


"Montag" 


"Dienstag" 


"Mittwoch" 


"Donnerstag" 


"Freitag" 


"Sonnabend" 


FEN effekt:FRINT:FRINT TAB(12) "Fals 
Eingabe!" 

igag FEN normal :G0SUR 1819: RETURN 

1219 FRINT:FRINT TAR(7} "Bitte eine Tas 
te druecken:" 

1328 #$=INKEY$: IF f$="" THEN GOTO 1928 
RETURN 


17. = 


Kartei für Schallplatten 


zs=2=5=25=2=2=2=222 2222222 =222=2=2 


Dieses Programm trägt seinen Namen nur dann zu recht, wenn Sie 
es Wort für Wort bzw. Befehl für Befehl so eintippen, wie Sie es 


in unserer Programmsammlung vorfinden. 


Da es sich aber im Endprodukt um eine gar nicht so unluxuriöse 
kleine Datenbank handelt, ist es auch möglich, die entsprechen- 
den PRINT-Befehle z.B. "PRINT "Platten eingeben"' in gewünschte 
Befehle mit nachfolgendem Text umzuwandeln z.B. "PRINT "Adressen 


eingeben"'. 


So hätten wir nach ein paar Abänderungen im Programm eine Adreß- 
datei, die wir natürlich auch später so abspeichern können bzw. 


so abspeichern sollten. 


Jedoch zeigt das Programm "Kartei für Schallplatten' einige 
Beschränkungen, die sich erst dann sinnvoll beseitigen ließen, 
wenn wir nicht mit Kassette sondern mit Diskette - und dort mit 
wahlfreiem Zugriff - arbeiten könnten. 


Die Grenzen des Programms zeigen sich nämlich deutlich bei dem 
zur freien Verfügung stehenden Speicherplatz. Wollen wir eine 
Karteikarte vollständig nutzen (drei mal 40 Zeichen), so werden 
dazu bereits 120 Speicherplätze benötigt. Bei 100 Karteikarten 
sind dies schon 12000 Speicherplätze ... und daraus resultiert, 
daß wir als Obergrenze vorerst die Zahl 300 für die Menge der 
unterschiedlichen Karteikarten vorgegben haben. 


Speichern Sie pro Karteikarte (120 Speicherplätze) nicht so 
viele Zeichen ab, können Sie selbstverständlich hierzu auch das 
Programm entsprechend ändern. In diesem Fall wird die Höchst- 


zahlgrenze einfach größer umschrieben z.B. Zeile 90: 
'IF z£1 OR 2400 ...' 


Im einzelnen stellt Ihnen das Programm 'Kartei für Schallplat- 


ten' folgende Elemente zur Verfügung: 
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1. Sie können Karteikarten mit je drei Feldern anlegen (Platten- 
name, Sänger, Nummer) 


2. Sie können Dateien von Kassette laden 
3. Sie können Dateien auf Kassette abspeichern 


4. Sie können nach einer Platte im Speicher suchen lassen (nach 
Plattenname, Sänger oder Nummer); bei dieser Funktion wird Ihnen 
der Bildschirm mit gefundenen Daten aufgefüllt, bis er voll ist. 
Danach drücken Sie die (ENTER)-Taste und die Auflistung geht 
weiter. Mehrmaliges Auffinden kann möglich sein, wenn Sie meh- 
rere Langspielplatten eines Sängers, z.B. von David Bowie, be- 
sitzen. 


5. Sie können Ihre gesamte Plattenliste auf den Bildschirm - 
oder falls vorhanden auf einen angeschlossenen Drucker - ausge- 
ben lassen (bei der Bildschirmausgabe immer nur fünf Datensätze, 
dann (ENTER) drücken). 


6. Sie können eingegebene Daten ändern. Da bereits bei der 
Eigabe (1.) die Möglichkeit der nachträglichen Korrektur einge- 
räumt wird ('"Richtig?'), wird Funktion 6. wohl kaum angewendet 
werden müssen, um Eingabefehler nachträglich zu beseitigen. 
Vielmehr ist bei dieser Funktion daran gedacht, daß Sie das 
Dateiprogramm z.B. - wie oben bereits vorgeschlagen - zur Ver- 
waltung von Adressen verwenden. Wie oft kommt es da doch vor, 
daß jemand seinen Wohnsitz gewechselt hat ... Ganz einfach: 
Adreßdatei aufrufen, Punkt 6 = "Änderungen vornehmen' aufrufen. 
Da sich sicherlich nicht alle Daten Ihres Bekannten von heute 
auf morgen verändert haben (zumindest sein Name nicht), können 
Sie diese Programmteile durch Drücken der (ENTER)-Taste einfach 
überspringen. Erst an der Stelle, wo wahrlich eine Änderung 


aufgetreten ist, können Sie eingeben. 


Ob Sie dieses Programm nun wie ursprünglich gedacht für die 
Speicherung Ihres Schallplattenarchivs verwenden oder ob Sie das 
Programm in eine Adreßverwaltung ummodeln, auf jeden Fall wün- 
schen wir Ihnen viel Freude dabei, der Unordung der Ordnung 


halber mit Ihrem CPC und unserem Programm zu Leibe zu rücken. 
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uer Schallplatten 


Menue 


eingeben 
laden 
eichern 
en suchen 
eben 


Ihre Wahl (1/7/2/7/37/4/5/6) ? B 


A .Nac Pia en suche 


Zum Menue zurueck durch ENTER» 
ohne Worteingabe 


Wonach wollen Sıe suchen 
1.Plattenname 
2.Saenger/in, Gruppe 
3.Nummer’/Code 


Ihre Wahl (17/27/73) ? 18 


185 REM Kartei fuer Schallplatten 
za REM CFC454 Basic Programme 
Sg REM Copyright 1984 DATA BECKER % 
Rainer Lueers 
48 INK 94,1:INK 1,24:INK 2,1,24:effekt=2: 
normal=1 
524 m=1:MODE 1 
62 REM Vorbedingungen treffen zum 
Anlegen von dimensionierten 
Variablen 
78 FAFER 1:PEN @:PRINT "Kartei fuer Scha 
ilplatten":PAPER ®:PEN 1 
82 PRINT 
983 INPUT "Wie viele LFs sollen denn gesp 
eichert werden hoechstens IQ) "sz 
i@@ IF z<i OR z>igd THEN GOSUR 23989:G0TO 
Sa 
11@ fr=FRE (9):DIM p$(z)„s#$(z),n$(z) 
128 PRINT:PRINT "Allein die Dimensionier 
ung von"sz;:PRINT "Platten braucht"; fr-F 
RE(#); "Speicherplaetze." 
132 PRINT:FRINT:PRINT "Bleiben pro Platt 
e im Hoechstfall":PRINT:PRINT " 
"sINT(FRE(#)/z)PRINT:FPRINT "Speicherp 
laetze frei.":PRINT:PRINT:PRINT 
149 INPUT "Reicht das {sonst muessen Sie 
die Dimensionierung = Anzahl einz 
ugebender Platten aendern ( /N) ";sf$ 
1529 f$=LEFT$ (UPPER$ (F$),1) 
16@ IF #$="N" THEN CLEAR:GOTO 52 
17@ REM Anzeige des Hauptmenues 
188 CLS 
1928 LOCATE 6,8 
z2a9 PAPER 1:PEN S:PRINT "Kartei fuer Sch 
allplatten":PAPER 8&:PEN 1 
21@® LOCATE 16,1% 
2228 PRINT "Menue" 
239 LOCATE 8,13 
248 PRINT "1.Flatten eingeben" 
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259 LOCATE 8,14:FRINT "2.Platten laden" 
268 LOCATE 8,15:PRINT "3.Platten speiche 
rn" 
278 LOCATE 8,16:PRINT "4.Nach Platten su 
chen" 
2828 LOCATE 8,17:PRINT "5.Platten ausgebe 
n" 
298 LOCATE 8,18:PRINT "ö.Platten aendern 
3224 LOCATE 6,21 
318 INPUT "Ihre Wahl (1/2/3/4/5/6) "sf$ 
s22@ IF f$<"1" OR f$>"6" THEN GOSUB 23988: 
GOTO 188 
S5@ ON VAL(f$) GOSUR 379,689, 949,122@,17 
SQ, 29280 
Sag F$=""2f1$="":f2$="":n1=f 
352 GOTO 188 
562 REM Unterprogramm zur Eingabe 
von Daten 
378 FOR n=m TO z 
388 CLS 
398 PAPER 1:PEN G:PRINT "1.Platten einge 
ben":PAPER 8:PEN 1 
4298 PRINT 
418 GOSUB 2368 
4220 PRINT 
434 f1$="":PRINT "Plattenname" 
4498 INPUT p$(n): IF LEN(p$(n))>48 THEN p$ 
(n)=LEFT$(p$(n),49) 
452 IF p$(n)="" THEN m=n: RETURN 
468 PRINT "Saenger/in, Gruppe" 
478 INPUT s${n): IF LEN{s$(n))>48 THEN s#$ 
(n)=LEFT$(s$(n),48) 
488 PRINT "Nummer /Code" 
498 INPUT n$(n):IF LEN(n$(n))>42 THEN n$ 
(n)=LEFT$(n$(n),492) 
528 REM Erste Anzeige der eingegebenen 
Daten mit 
Korrekturmoeglichkeit 


518 PRINT 
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528 PRINT "Noch einmal die eingegebenen 
Daten: " 
S34 PRINT "Satznummer"ın: "von bis zu";sz 
542 PRINT 
SS5A PAPER 1:PEN @:PRINT "Plattenname:":P 
APER 2:PEN 1 
568 PRINT p%${n) 
578 PAPER 1:PEN Z:PRINT "Saenger/in, Gru 
ppe:":PAPER G:PEN 1 
5824 PRINT s$({n) 
s9A PAPER 1:PEN Z:PRINT "Nummer /Code: ":P 
APER 2@:PEN 1 
688@# PRINT n$(n) 
&61@ PRINT 
6229 INPUT "Richtig ( /N)"sFfi1$ 
630 Fi$=UPPERS (f1$) 
64@ IF fi$="N" THEN PRINT:GOTO A4I2 
652 NEXT n 
662 RETURN 
672@ REM Unterprogramm zum Laden 
von Dateien von Kassette 
688 CLS 
699 PAPER 1:PEN G:PRINT "2.Platten laden 
"PAPER ®:PEN 1 


784 PRINT 

718 GOSUR 2362 

728 PRINT 

7398 PRINT "Sie loeschen durch die Dateie 
ingabe alle bereits vorhandenen Date 
n im Speicher!" 

748 PRINT 

752 INPUT "Wollen Sie Daten laden (J/ ) 
"f1% 


768 1$=LEFT$ (UPPERS$ (f1$),1) 

77a IF fi1$="J" THEN GOTO 788 ELSE RETURN 
782 PRINT 

798 PRINT "Dateiname" 

Baa INPUT dns 

8128 dn$="!"+dn$ 


828 OPENIN dn$ 
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8323 INPUT #39,m 
842 PRINT 
858 PRINT "Die einzuladende Datei ";dn$ 
8658 PRINT "besteht aus";m-1; "Saetzen" 
8728 FOR n=1 TO m-1 
8829 INPUT #9,p$(n),s${n),n$&{(n) 
892 PRINT n:PRINT p#(n):PRINT s${n):PRIN 
Tn$(n) 
g90M NEXT n 
g1@ CLOSEIN 
928 RETURN 
958 REM Unterprogramm zum Speichern 

von Dateien auf Kassette 
944 CLS 
95A PAPER 1:PEN @G:PRINT "3.Platten speic 
hern":PAPER 2:PEN 1 
968 PRINT 
974 GOSUBR 2562 
984 PRINT 
9924 INPUT "Wollen Sie Daten speichern {(J 
/) "sfi1$ 
12929 F1$=UPPERS$ (f1$) 
1218 IF fi$="J" THEN GOTO 19828 ELSE RETU 
RN 
1824 PRINT 
19838 IF dn$<>"" THEN PRINT "Soll unter d 
em Dateinamen ";dn$: INPUT "abgespeichert 
werden (J/ ) "32%: f2$=LEFT$ (UPPER$ (f2$ 
),1)zIF f2$="J" THEN GOTO 1978 
i1g420 PRINT "Dateiname "; 
1952 INPUT dn$ 
1068 dn$="!"+dn$ 
1872 OFENOUT dn$ 
1284 PRINT #39,m 
1892 PRINT 
11@g PRINT "Die zu speichernde Datei ";d 
n$; :PRINT "besteht aus";m-1;5"Saetzen" 
1112 FOR n=1 TO m-i1 
1128 PRINT #9,p${n),s${n),n${n) 
11386 PRINT n 
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12 
1234 


a 


PRINT p${n) 

PRINT s${n) 

PRINT n${n) 

PRINT 

NEXT n 

ELOSEOUT 

RETURN 

REM Unterprogramm zum Suchen nach 
Platten, Saengern oder 


Nummern 
CLS 


PAPER 1:PEN &:PRINT "4.Nach Platten 


suchen":PAPER 8:PEN 1 


1240 
1259 
1264 
1278 


13824 
13924 
1422 
14180 
%(p$, 
1428 
1438 
1448 


PRINT 
GOSUBR 2368 
PRINT 
REM Vorgabe eines Untermenues: 
Suche nach: 
1) Plattenname 
2) Saenger/in, Gruppe 
3) Nummer /Code 
PRINT "Wonach wollen Sie suchen" 
PRINT 
PRINT "1.Plattenname" 
PRINT "2.Saenger/in, Gruppe" 
PRINT "S.Nummer /Code"” 
PRINT 
INPUT "Ihre Wahl (1/2/2) "sf1$ 
IF f1$<"1”" OR fi$>"3" THEN RETURN 
ON VAL(f1$) GOSUB 13994,15190,1628 
fi$=""2f2$=""n1=8:60T0 1228 
REM Suche nach Plattenname 
ELS 
PRINT "Plattenname"” 
INPUT p$: IF LEN{p$) >48 THEN p$=LEFT 
48) 
IF p$="" THEN RETURN 
FOR n=1 TO m-1 
IF p$=p$(n) THEN PRINT n:PRINT p$(n 


):PRINT s${n):PRINT n${n) ni=ni+1 
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1452 
1468 
1474 
1482 
1499 
1592 
1519 
1528 
15582 


$(s$, 


1549 
1558 


1568 


IF ni=5 THEN ni1=9:G05SUR 23398 

NEXT n 

PRINT 

GOSUR 23328 

RETURN 

REM Suche nach Saenger/in, Gruppe 
CLS 

PRINT "Saenger/in, Gruppe" 

INPUT s$: IF LEN(s$) >48 THEN s$=LEFT 
49) 

IF s$="" THEN RETURN 

FOR n=1 TO m-1 

IF s$=s$(n) THEN PRINT n:PRINT p$(n 


):PRINT s$(n):FPRINT n$(n) :ni=ni+1 


1578 
1588 
1599 
1628 
1614 
1629 
1632 
1649 
1659 
166% 
1679 
1682 


IF ni1=5 THEN n1=8:60SUB ?I32 
NEXT n 

PRINT 

GOSUR 2338 

RETURN 

CLS 

REM Suche nach Nummer /Code 
PRINT "Nummer /Code" 

INPUT n$ 

IF n$="" THEN RETURN 

FOR n=1 TO m-1 

IF n$=n$(n) THEN PRINT n:PRINT p$(n 


)=PRINT s$(n):PRINT n${n) ni=ni+i 


16982 
1798 
1718 
1728 
1739 
1748 


17582 
1768 


IF ni=5 THEN n1=8:60SUB 2332 

NEXT n 

PRINT 

GOSUB 2332 

RETURN 

REM Unterprogramm zur Ausgabe der 
gespeicherten Daten auf 
Bildschirm oder Drucker 

CLS 

PAPER 1:PEN 8:PRINT "S5.Platten ausg 


eben":PAPER 8:PEN 1 


1778 


PRINT 
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1788 GOSUR 2368 
1798 FRINT 
189428 PRINT "Auf Bildschirm oder Drucker 


ausgeben?" 
18184 INPUT "(B/D) ";f2$ 
1828 IF f2$="" THEN RETURN 


1838 #2$=LEFT$(UPPER$ (f2$),1) 

1848 IF f2$="D" THEN GOTO 19548 

18524 REM Ausgabe der Daten auf Monitor 

1868 CLS:FOR n=1 TO m-1 

1878 ni=ni+i1 

1882 IF ni=5 THEN ni1=9:6G0SUR 233598: CLS 

1898 PRINT n:PRINT p${n):PRINT s$(n):PRI 

NT n$(n) 

19289 NEXT n 

1918 PRINT 

1922 GOSUB 2338 

1938 RETURN 

1948 REM Ausgabe der Daten auf Drucker 

1958 FOR n=1 TO m-1 

1964 PRINT #8,n:PRINT #8,p$(n):PRINT #8, 

s${n):PRINT #8,n$(n):PRINT #8 

19784 NEXT n 

19824 PRINT 

1998 GOSUB 2FI32 

2aAgd RETURN 

2819 REM Unterprogramm zur Aenderung 
von Daten im Speicher 

2924 CLS 

230 PAPER 1:PEN Z:PRINT "ö.FPlatten aend 

ern":PAPER @:PEN 1 

2949 PRINT 

229529 GOSUB 2362 

2068 PRINT 

2878 INPUT "Welche Plattennummer ";sni 

2888 IF ni>m-i OR ni<Zd THEN GOSUB 273998:6G 

0oTO 2978 

2898 IF ni=8 THEN RETURN 

21288 PRINT 
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2118 PRINT ni:PRINT p$(ni):PRINT s$(n!): 
PRINT n$(ni) 

2128 PRINT 

21382 PRINT "Was hat sich geaendert (Nein 
=<ENTER>) ?" 

2148 PRINT p$(ni) 

2158 INPUT d$: IF d$<>"" THEN p$(ni)=d$ 
21628 PRINT s$(ni) 

2178 INPUT d$: IF d$<>"" THEN s$(n1)=d$ 
2182 PRINT n$(ni) 

2198 INPUT d$: IF d$\>"" THEN n$(n1)=d$ 
2298 CLS 

z221@ PRINT "Die Eingabe zu Plattennummer 


28 PRINT p$(ni) 

328 PRINT s$(ni) 

428 PRINT n$(ni) 

PRINT 

GOSUB 2338 

78 ni1=9 

84 GOTO 2929 

98 REM Unterprogramm zur Anzeige bei 


a 
SQ 


NNN MN NN MN MN 
NN MN B NN MN MN 
S 


falscher Eingabe 
2398 PRINT:PEN effekt:PRINT TAB(12) "Fal 
sche Eingabe!":PEN normal :60SUR 2332@:RET 
URN 
2318 a$=INKEY$: IF a$="" THEN GOTO 235129 E 
LSE RETURN 
2328 REM Unterprogramm zum Einfrieren 
der Bildschirmanzeige 
2338 PRINT:PRINT TAR(7) "<Eitte eine Tas 
te druecken>" 
2348 a$=INKEY$: IF a$="" THEN GOTO 2348 E 
LSE RETURN 
2358 REM Allgemeines Unterprogramm 
2368 PRINT "Zum Menue zurueck durch <ENT 
ER> ohne Worteingabe" 
2378 RETURN 
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Sporttabelle 


zse=ss22=2=23222==5 


Dieses Programm kann Ihnen in Zukunft sehr viel Freude bereiten, 
und noch mehr Zeit ersparen. 


Hier wird genau das vom Computer verwaltet, was sich innerhalb 
eines Jahres in Sportvereinen so oft und so regelmäßig abspielt. 
Als Paradebeispiel sei der Fußball genannt, der auch als Vorbild 
zu diesem Programm diente. 


Zu Beginn der Eingabe haben Sie die Wahl, bis zu zwanzig Vereine 
gleichzeitig zu verwalten. Anschließend fragt Sie der CPC, ob 
die Vereinsnamen, die in DATA-Zeilen bereits gespeichert sind 
(1. und 2. Bundesliga), für die Saison zutreffen oder ob Sie 
selbst die Namen Ihrer bis zu zwanzig Vereine eingeben wollen. 


Auch für die Begegnungen der Vereine in der Hin- und Rückrunde 
sind bereits alle möglichen Paarungen gespeichert. Wollen Sie 
diese Daten vom Computerspeicher übernehmen, so beantworten Sie 
auch diese Frage mit j(a). 


Hierzu ein Hinweis: Die in DATA-Zeilen gespeicherten Begegnungen 
der Clubs resultieren aus einer allgemeinen Aufstellung, wobei 
schließlich jede Mannschaft gegen jede Mannschaft nach einer 
Saison zweimal gespielt hat, einmal zu Hause, ein anderes Mal 
auswärts. Wenn Sie die Daten aus den DATA-Zeilen nicht überneh- 
men wollen, so geben Sie bitte, der Bildschirmanzeige entspre- 
chend, alle Spieltage nacheinander in den Computerspeicher ein. 
Jedoch brauchen Sie nur die Hälfte aller Spielpaarungen einzuge- 
ben, denn die Rückrunde errechnet der CPC selbstverständlich 


ohne Ihr Zutun. 
Anschließend werden Sie mit einem Menü konfrontiert, das Ihnen 


drei Möglichkeiten eröffnet: 1. Spieltag eingeben 2. aktuelle 
Tabelle zeigen 3. Spieltag ansehen. 
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Geben wir also zuerst die Ergebnisse des 1. Spieltags ein. Da es 
vorkommen kann, daß das eine oder andere Spiel ausfällt, gibt es 
auch hierfür eine Hilfe: Das Ergebnis '99,99' bedeutet: Spiel 
ausgefallen. 


Wenn nicht bereits der zweite Spieltag erfolgt ist und diese 
Eintragungen Vorrang genießen, könen wir uns nun unsere Eingaben 
in übersichtlicher Ferm auf den Monitor holen. Wie funktioniert 
das nun: 3. Spieltag ansehen? Uns wird nach der Auswahl dieses 
Menüpunktes die Möglichkeit eröffnet, nacheinander die ganze 
Saison auf Tastendruck vor unseren Augen abspielen zu lassen. 
Wir können aber selbstverständlich auch gezielt einige Spieltage 


zur Anzeige bringen. 


Springen wir in die Rückrunde (bei 20 Vereinen ab Spiel 20), so 
wird uns das - falls vorhanden - Spiel von der Hinrunde 
ebenfalls auf dem Bildschirm angezeigt. 


Ist eine Begegnung vor ein paar Spieltagen z.B. durch schlechtes 
Wetter ausgefallen (Eingabe '99, 99'), so können wir die Eintra- 
gung dieses Ergebnises selbstverständlich nachholen. Hierzu 
bitte wieder 1. "Spieltag eingeben' anwählen und den entspre- 
chenden Spieltag aufrufen, wo die eine oder andere Partie noch 
aussteht. Der CPC wird mit einem kurzen Piepsen die bereits 
fertigen Spiele übergehen und genau da anhalten, wo noch Eintra- 
gungen vorzunehmen sind! Waren gleich mehrere Partien an einem 
Spieltag ausgefallen, so müssen die noch nicht nachgespielten 
Begegnungen auch bei Jieser Wiederholungseingabe erneut mit '99, 
99' (ausgefallen) quittiert werden. 


Nun aber zum Kernstück des Programms, hin zur Tabellener- 
rechnung. Es dauert ein klein wenig, bis die Tabelle steht, 
dafür ist sie aber nicht nur geordnet, sondern auch noch sehr 
ausführlich auf 80 Zeichen dargestellt: Hinter der erreichten 
Platzziffer und dem Vereinsnamen wird die Anzahl der bereits 
erfolgten Spiele des jeweiligen Vereins angezeigt; kurz dahinter 
ist aufgeführt, wie viele Spiele von diesem Verein gewonnen 
wurden, wie viele verloren gingen und selbstverständlich auch, 
wie oft unentschieden gespielt wurde! Schließlich wird auch noch 
das aktuelle Tor- und Punkteverhältnis zur Anzeige gebracht, 
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jeweils ergänzt durch die positive oder negative Differenz aus 


Plus- und Minuspunkten. 


So bleibt die Übersicht jederzeit gewahr, wie und wo mit welchen 
Ergebnissen wann gespielt wurde und wie nun die aktuelle Platz- 


ziffer der jeweiligen Vereine ist. 


Ein aufwendiges Programm, das allerdings eines erfordert: Lassen 
Sie den CPC unter Strom! Eine Datenspeicherung ist absichtlich 
noch nicht eingefügt, denn mit Kassette würde dies bei solch 
einer Datenfülle einfach zu lange dauern. Warten wir geduldig 
auf die Diskettenstation! Die Anpassung dürfte Ihnen nicht allzu 
schwerfallen, da wir zu Beginn die dimensionierten Variablen in 
einer REM-Zeile erklärt haben. Hingegen können Sie einen Prin- 
ter-Ausdruck der Tabelle ohne weiteres vornehmen, wenn Sie die 
dort stehenden PRINT-Befehle (Zeile 900 bis 960) um '#8' ergän- 


zen. 


Spieltag 28 


Hannover 


DON 0722 


Wattens. 
Saarbru. 
Solingen 
Kasse 
Nuernbe. 
Ulm Homburg 
8 Offenba. Buersta. 


[PS] U START. TAN TAT 670 
Lad 11° 213, 1 10126 7 - TA] 67 


4 
5 
6 
7? 
8 
9 
1 


<Bitte eine Taste druecken)> 
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14 REM Sporttabelle 
28 REM CPC464 Basic Programme 
328 REM Copyright 1984 DATA BECKER % 
Rainer Lueers 
45 INK 83,1:INK 1,24:1INK 2,1,24:effekt=2: 
normal=1:PEN 1:PAPER 4 
524 MODE 1 
&8# REM Auswahl zwischen 4 bis 
28 Vereinen 
7@& INPUT "Vereine (4/6/8/14/12/14/16/18/ 
za) ";f$ 
84 REM Liste der Variablen, die 
dimensioniert werden mit 


ihren Bedeutungen 


98 REM a$( )=Vereinsnamen 
bt „ )=sSpiel stattgefunden 
ct „ „ }=Ergebnis 
e( „ )=Tore insg. 
ft „ )=sreingelassen insg. 
1@da REM g( „ )=gewonnen insg. 


ht „ )=unentschieden insg. 

it „ )=verloren insg. 

kC. „ )=Spielpaarung 

z1 bis z5=fuer Sortierroutine 

118 F=VAL(F$):IF F/2XHINT(#/2) THEN PRIN 

T:G0OSUB 1298:6G0T0 5% 

128 IF f<4 OR f>2@ THEN GOSUR 1298:6G0T0 

Sg 

138 DIM as(f) ,b(f%2,#/2),c(#,fX2-2,2),et 

FI FiH),gtf),hif),itf),kif-1,#/2,2),z1(f 

+1), z2(#+1),z3(f+1),zAlf+1),zStt+i) 

144 REM Eingabe eigener Vereinsnamen 
oder einlesen der Vereinsnamen 
aus DATA-Zeilen 

15@ INPUT "Namen aus Frogrammzeilen (J/ 

)"3f$ 

168 f$=UPPER$(F$): IF LEFT$(F$,1)="J" THE 

N GOTO 238 

172 FOR n=1 TO f 

188 FRINT "Verein"sn;: INPUT ": ";f$ 
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198 IF f$="" THEN GOTO 188 
aa IF LEN(f$) >18 THEN a${n)=LEFT$($,18 
) ELSE at(n)=f$ 
zig NEXT n 
229 GOTO 59 

z93 ON f GOSUR 259,259, 259,259, 259, 268,2 
9,282, 252,299, 252,399, 2590,318,2 


25@ RESTORE 6358:FOR n=1 TO f:READ a$(n) 

:NEXT n:RETURN 

26% RESTORE 63228:FOR n=1i TO f:READ a$(n) 

:NEXT n:RETURN 

278 RESTORE 6298:FOR n=1 TO f:READ a$(n) 

:NEXT n:RETURN 

288 RESTORE 6268:FOR n=1 TO #f:READ a$(n) 

»NEXT n:RETURN 

29@# RESTORE 62398:FOR n=1 TO f:READ a$(n) 

»NEXT n:RETURN 

sam RESTORE 6284: FOR n=1 TO f:READ a$(n) 

:NEXT n:RETURN 

319 RESTORE 6178:FOR n=1 TO f:READ a$(n) 

:NEXT n:RETURN 

32# RESTORE 6134: FOR n=1 TO f:READ a$(n) 

:NEXT n:RETURN 

338 RESTORE 692829: FOR n=1 TO f:READ a$(n) 

:NEXT n:RETURN 

348 REM Spielfolge in DATA-Zeilen 
(uebliches System) kann heran- 
gezogen werden; es ist aber 
auch moeglich, alle Spielzu- 
sammenstellungen selbst 
einzugeben 

3524 INPUT "Spielfolge wie in DATA-Zeilen 

(Jr "st: f$=UFFER$ CF): IF LEFT$CH$, 1) = 
"J" THEN GOTO 428 
=6# FRINT:PRINT:FRINT "Spielfolge bitte 


mit Zahlen eingeben (z.B. 1 <kom 
ma> 2 <ENTER?) vorige Eingabe wi 
ederholen -:8 eingeben" 
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378 FOR n=1 
ieltag"sn:FR 
288 FOR m=1 
394 PRINT:PR 
>f OR b>f OR 
=8 OR b=8 TH 
‚1)=sa:k(n,m, 
1));3" - "sa$ 
4294 NEXT m,n 
4193 GOTO 538 
428 ON # G0OS 
40,4609,440,4 
44,5129,4498,5 
38 GOTO 538 
449 RESTORE 
TO f/Z:READ 
ETURN 
459 RESTORE 
TO f/2:READ 
ETURN 
46% RESTORE 
TO f/2:READ 
ETURN 
478 RESTORE 
TO f/Z:READ 
ETURN 
48294 RESTORE 
TO f/Z:READ 
ETURN 
499 RESTORE 
TO f/Z:READ 
ETURN 
5224 RESTORE 
TO f/Z:READ 
ETURN 
519 RESTORE 
TO f/2:READ 
ETURN 


TO #-1:PRINT:PRINT:PRINT "Sp 
INT 

TO f/2 

INT "Spiel";m: INFUT a,b:IF a 
a=b THEN GOTO 398 ELSE IF a 
EN m=m-1:G0T0 3984 ELSE kin,m 
2)=b:a=2:b=2:PRINT a$tktin,m, 
(k(n,m,2)) 


UR 4498,449,440,449,449, 452,4 
72,449,488,449,490,449, 529,4 
29 


Ss@2@g:FOR n=1 TO f-1:FOR mi 
kin,m,1),k{n,m,Z) NEXT m,n:R 


S@4@:FOR n=1 TO f-i:FOR mi 
kin,m,1).,k{n,m,2):NEXT m,n:R 


S188:FOR n=1 TO #-1:FOR m=i 
kKin,m,1),k{n,m,2) NEXT m,n:R 


5188:FOR n=1 TO f-1:FOR m=i 
kin,m,1),k{n,m,2):NEXT m,n:R 


5288:FOR n=1 TO f-1:FOR m=i 
kin,m,1),k{n,m,2)z2NEXT m,n:R 


548@8:FOR n=1 TO f-1:FOR mi 
kin,m,1),kK{n,m,2):NEXT m,n:R 


5S542:FOR n=1 TO f-1:FOR m=l 
kin,m,1),k{n,m,2):NEXT m,n:R 


S788:FOR n=1 TO f-1:FOR m=i 
kin,m,1),.kin,m,Z2) NEXT m,.n:R 
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528 RESTORE 5899:FOR n=1 TO f-1:FOR m=1 
TO f/ZEREAD ki{n,m,1),k(n,m,2):NEXT m,n:R 
ETURN 

532 MODE 1:FEN effekt:LOCATE 7,7:PRINT " 

Sportverein-Tabellen";:PEN normal 

548 LOCATE 7,14 

5528 FRINT "1.Spieltag eingeben" 

S6%8 LOCATE 7,11 

578 PRINT "2.aktuelle Tabelle zeigen" 

5824 LOCATE 7,12 

5974 PRINT "3.Spieltag ansehen" 

sdg LOCATE 7,14 

618 INPUT "Ihre Wahl (1 bis 3) "ıf$ 

628 IF VAL(FS)<1 OR VAL(f$)>4 THEN GOSUB 
1274:G0S5URB 1294:60T0 429 

638 ON VAL(f$) GOSUB 66598, 928, 1918 

6498 GOTO 538 

6528 REM Spieltag eingeben 

662 MODE 1 

678 INPUT "Welcher Spieltag "ıf$:IF VAL( 
fs)£1 OR VAL(#$) >fr2-2 THEN GOSUR 1299:6 
OTO 6798 

688 IF VAL(F$)>f-1 THEN GOTO 744 

692 FOR n=1 TO f/2:PRINT "Spiel"zn 

aa IF b(VAL(f$),n){>2 THEN FRINT CHRS$(7 
);"Fehler'! Spielergebnis bekannt: ":PRINT 
as(k(VAL(F$),n,1))5;3"-"zasik (VAL (f$),n,2 
Id" "zcckkAVAL(FE),n„1) ,VAL(FS), 1); "-"5c 
(K(VAL(F$) ,n,1) ,VAL(f$),„2):60T0O 738 

718 FRINT a$tk (VAL(FE)ın,1));" —- "zaslkt 
VAL(f$),n,2));3=2INPUT a,bz:IF a=99 THEN PR 
INT "ausgefallen":b (VAL (f$) ,n)=#:60T0 73 
® ELSE GOSUR 798 

728 b{VAL(F$),n)=1:Cc(k(VAL(FS),n,1) „VAL 
f$),12)=sa:cik(VAL(f$),n,1) ,VAL(f$) ,2)=be:c 
CEIVAL (#$) ,n,2) „VAL(f$) ,1)=bzec(k (VAL(FS$) 
‚n,2),VAL(f$) ,2)=a 

738 NEXT n:RETURN 

748 FOR n=1 TO f/2:PRINT "Spiel";n 
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754 IF b(VAL(f$),n)<>d THEN PRINT CHRS$(7 
);"Fehler! Spielergebnis bekannt: ":PRINT 
as (k (VAL (F$) -fFrl1.n,2))3"-"zasik(VAL(F$) 
-f+t1,n,1))3"2"3cck(VALCFE)-fF+H1,n, 1) „VAL 
#8), 1)3"-"sc(k(VAL(FB)-f+1,n,1),VAL(FS$), 
2):G0OTO 788 

768 PRINT a$(k(VAL(f$) -f+H1,n,2))3" — "za 
$IKIVAL(FF) -f+1,n,1))5;3: INPUT a,b:IF a=997 
THEN PRINT "ausgefallen":b(VAL(f$),.n)=@ 
:GOTO 788 ELSE GOSUR 848 

778 bA(VAL(#$) ,n)=1:2cC(k(VAL(f$) -f+1,.n,1), 
VAL(f$) ,1)=a:c(k(VAL(f$) -#+1,n,1),VAL(#$ 
)„2)=bec(kK(VAL (FE) -fF+1,n,2) „VAL(FS)I,1)=b 
2 c(k(VAL(fF$)-f+1,n,2),VAL(f$) ,2)=a 

784 NEXT n:RETURN 

7978 eik(VAL(F$),.n,1))=elk (VAL(fF$),n,1))+ 
azfik(VAL(FE)I,n,1))=F IK (VAL(f$) ,n,1))+b: 
E(KAVAL(F$) .n,2))Se(k (VAL(FSI ,n, ZI) +brf 
K(VAL(FSI ,n,Z2))=f (KVAL(FS),n,Z2))t+a 

sea IF a=b THEN hik(VAL(f$),n,1))=h(k (VA 
L(f$) ,n,1))+1ch ck (VAL(F$) ,n,2))=h (k (VAL ( 
f$),n,2))+1 

812 IF a>b THEN g(k(VAL(f$).n,1))=gik (VA 
L(f$).n,1))+2:i (ck (VAL(FE)I,n,2))=i (k (VAL 
f$) ,n,2))+2 

828 IF a<ib THEN i (k(VAL(f$),n,1))>=i ck (VA 
L(f$),n.1))+2:g9(k (VAL(F$) ,n,2))=g(k (VAL 
f$) ,n,2))+2 

838 RETURN 

8408 etk(VAL(F$) -f+1.n,1))=setk (VAL (F$)I -f+ 
1,.n,1))+tazsfik(VALCFS)I)-Fri1,n,1))=f CK VAL 
f$)-f+t1,n,1))+tbze(k (VAL (FE) -fri,n,2))=et 
kK(VAL(F$)-fFt1,n,Z2)) +bef ck (VAL (FI -Frl,n, 
ZIEH IK (VAL(F$) -f+1,.n,2))+a 

858 IF a=b THEN hi(k(VALtf$) -fF+tl,n,ti))=ht 
KAVAL(FEI-F+H1,n, 1) I) +1Ch ck (VAL (F$) -f+1,n, 
ZI)=h(kAVAL(F$)-fFtl,n,2))+1 

862M IF a>b THEN g(k (VAL (fF$) -fF+t1,n,1))=gt 
KAVAL(#F$) -fF+tl.n,1))+2:i (ck (VAL (CF) -f+l,n, 
2))=i (kK(VAL(FS) -f+1,n,2))+2 
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878 IF aib THEN i tk(VAL (FE) -f+Hl,n,1))sit 
k(VAL (FI) -f+l.n, 13 )+22g (ik (VAL (#$) -f+1,n, 
Zy)=gik (VAL(FS) -fFrl,n,2))+2 

9882 RETURN 

892 REM Aktuelle Tabelle zeigen 

729 MODE 2:G0OSUR 1188 

9194 FRINT"Fl. Verein Sp. + = 
Pkte. L 


Dr 


A 
a 


= Torverh. 2 
728 FRINT STRING$ (71,"="):FOR n=1 TO f 
97328 FRINT n; TAR(S)5a%$(z5(n))z;3TAR(18); (gt 
zS(in))+th(zS(n))X2)+i (z5S(n)))/23 TAB(24); 
g{zS{(n))z; TAB(29);h(z5(n))z; TAR(I4);5i (z5(n 
II); TAR{AB)ze(z5(n));TAR(45);,":2"3f(z5(n)) 


944 PRINT TAR(St)ze(zS(n))-# (zS(n))z3TAR( 
SdI;gtzSin))+h(zSin))z; TARB(61)5":"; TAR(62 
)shtzSin))+i (zStn)); TAB(58) 319g (z5St(n))-i(z 
S(n)) 

754 NEXT n 

964 FRINT STRING$ (71,"=") 

778 PRINT TAB(Z1);"<Bitte eine Taste dru 
ecken:>" 

782 as=INKEY$: IF a$="" THEN GOTO 988 

99@ RETURN 

12A@ REM Spieltag ansehen 

1218 CLS:PRINT: INPUT "Die ganze Saison ( 
J/) "3f$2f$=UFPER$ (FE): IF LEFTS(HFS, 1)=" 
J" THEN GOTO 118% 

1228 PRINT "Spieltag ( 1 bis";f%2-2;:INP 
UT") "sf$:IF VALCFSI<S1 OR VAL(F$) »#r2-2 
THEN GOSUB 1292:G60T0 1828 ELSE IF VAL(f 
$)>f-1 THEN GOTO 1969 

18329 n=VAL(f$) :CLS:PRINT "Spieltag"ın:PR 
INT:FRINT:PRINT:FOR m=1 TO #f/2:PRINT m;T 

AR(S)zas(k(n,m,1)); TAR(1S) 3a$(kin,m,2)); 
1949 IF bin,m)=8 THEN PRINT TAR(33)3"- 

-"z ELSE FRINT TAB(SZ)zsc(kin,m,1),n,1) 

s TARB(Z63;":"; TABCTTISC(kKin,m,1),n,2)3 
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14528 NEXT m:FRINT:FRINT:GOSUB 12723:60T0 

1178 

19688 n=VAL(f$) :CLS:PRINT "Spieltag";n:n= 
n-(#-1):PRINT:PRINT:PRINT:FOR m=1 TO f/2 
:PRINT m; TAB(S)szsa$tk(n,m,2)); TAB(14);,a$( 
kin,m,1)); TAR(ZI); 

1878 IF b(n,m)=1 THEN FRINT c(kin,m,1),n 
s2); TAR{(Z7),"2";STAB(28);c(kin,m,1),n,1);5 


ELSE FRINT " -— : -"; 
12388 IF bin+ttf-i),m)=d THEN PRINT TAR(ISS 
)3"- 2 -" ELSE PRINT TAB{SZ);c(k(n,m, 1) 


„ntf-1,1)53 TAR(36)3":2"3TAR(Z7)sct(kin,m,1) 
‚ntf-1,2); 

12898 NEXT m:FRINT:FRINT:GOSURB 1274:6G0TO 
1178 

11828 FOR n=1 TO f-1:CLS:PRINT "Spieltag" 
ın:PRINT:PRINT:PRINT:FOR m=1 TO f/2:FRIN 
T m TAB(S)sa$(k(n,m,1)); TAR(15);a$(k(n,m 
2))5 

1118 IF b(n,m)=@ THEN PRINT TAB(FII);"- 

® -"2 ELSE PRINT TAR(32)sc(k{in,m,1i1),n,1) 
s TAB(Z6)3 "2" TABCST)sc(k(n,m,1),n.2)3 
1128 NEXT m:PRINT:PRINT:GOSUR 127@8:NEXT 
n 

1138 FOR n=1 TO #f-1:CLS:FRINT "Spieltag" 
sn+tf-1:FRINT:PRINT:PRINT:FOR m=1 TO f/2: 
FRINT m; TAB (5) 3 a$(k(n,m,Z)); TAR(14)z,a$(k 
(n,m,1)); TAR(23); 

1148 IF b(n,m)=& THEN FRINT " — en u = 
LSE PRINT c(k(n,m,1),n,2);3 TAB{(Z79)3 "2", TA 
B(28)3c(k(n,m,1),n,1); 

1152 IF b{n+tf-1,m)=8 THEN FRINT TAR(Z8; 
"2 -"3 ELSE PRINT TARB(Z2)s;c(kin,m,1), 
n+f-1,1);3 TAR(36);,"2 "3 TAR(ZS7)z;ct(kin,m,1), 
n+f-1,2)3; 

116@ NEXT m:FRINT:FRINT:GOSUB 1278:NEXT 
1178 RETURN 

1188 REM Sortierunterroutine 

1198 FOR n=1 TO f:zi(n)=g{n)+thin):z2(n) 
=sein)-fin):zä(n)=e(in):z4{(n)=-1:NEXT n 
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1288 


FOR n=1 TO f 


1218 FOR m=1 TO f 

122 IF z1(m)>z4{in) THEN z4A{n)=zi(m):a= 

m:GOTO 125 

1238 IF zi(m)=z4(n) AND z2(m)>z2(a) THE 
N z4{n)=z1i(m):a=m:GOTO 1258 

1244 IF zitm)=z4(n) AND z2(m)=z2(a) AND 
z3m)>zSta) THEN z4(n)=zi (m) :a=m 

1258 NEXT m:zi(a)=-1:z25(n)=a:ra=fti:NEXT 
n 

12688 RETURN 

1278& PRINT:FRINT TAR(7) "<Bitte eine Tas 


te druecken: 


128% 


as=INKEYt: IF as="" 


LSE RETURN 


1298 


PEN effekt:FRINT TARB(12) 


THEN GOTO 1288 E 


"Falsche E 


ingabe!":PEN normal :GOSURB 1278:RETURN 


f=1 41777] 
Ss218 
Ssaza 
SO 
fe 22. 77] 
3252 
SO6B 
3278 
je] 4217] 
3298 
Ssı1aa 
Ssı118 
Ss12@ 
Ss138 
5149 
Ss158 


REM Datas fuer 4 Vereine 
DATA 1,4, 
DATA 4,3, 
DATA 2,4, 
REM Datas 
DATA 
DATA 
DATA 
DATA 
DATA 
REM Da 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 8, 
DATA ; 
REM Datas fuer 18 Vereine 
DATA 1,198,2,9,3,8,4,7,5,6 
DATA 18,6, 7,.9,8,4, 9, 2.1.2 
DATA 2,198,2,1,4.9.3,8,6, 7 
DATA 14, 7,8,6, 9,5, 1,4, 2,3 


in - v 
Hua 


DE-UUE-NW 


ver Vereine 


pr 
Ver 


WA CN N 


2. 


AuND» Oo 


em 


2» 
+. 


rn ange 
R 2; 


ja Eu 5 Eu u zu 5 


N 
1 u - 
Nnoronmurums 


'a 


nen 


[77 
' 


n 
I 
r oO m 


nnuae» 


a 
- a Sy ddr N 


Vereine 


2; 
1A 
a) 


(a 


nenn 
a 


WON GD - 


0 
7} 


N 
N 


een BeN 


"a 
(A 


- 139 — 


a 


iR] 


ıS 


an 

N MI N 
a 
S 


u 
Ss 


a 


N 
nr 


ON 


aeacen en 


So 


QANN DM 


a 
2} 


A 


[er 


an 


Wa 
N 


IR 
S 


A 


> 
S 


N 


1 
{n 


Q 


2 aA A 


aenenenencnencen en en 


[1 


eu 


[de u A 
5} 


2 Bu & u 3) 
er 
0 


[N 


DATA 3,19,4,2,5,1,6,9,7,8 
DATA 19,8,9,7,1,6,2,5,3,4 
DATA 4,19,5,3,6,2,7,1,8,9 
DATA 19,9,1,8,2,7,3,6,4,5 
DATA 5,18,6,4,7,3,8,2,9,1 


REM Datas fuer 12 Vereine 
DATA 1,12,2,11,3,18,4,9,5,8,6,7 
DATA 12,7,8,6,9,5,18,4,11,3,1,2 
DATA 2,12,3,1,4,11,5,128,6,9,7,8 
DATA 12,8,9,7,198,6, 11,5, 1,4, 2,3 
DATA 3,12,4,2,5,1,6,11,7,18,8,9 
DATA 12,9,18,8,11,7,1,6, 2,9, 3,4 
DATA 4,12,5,3,6,2,7,1,.8,11,9,18 
DATA 12,19,11,9,1,8,2,7,3,6,4,59 
DATA 5,12,6,4,7,3,8,2,9,1, 14,11 
DATA 12,11,1,198,2,9,3,8,4,.7,53,6 
DATA 68,12,7,5,8,4,. 9,3, 14,2, 11,1 

REM Datas fuer 14 Vereine 

DATA 1,14,2,13,3,12,4,11,5,198,6,9,7 


DATA 14,8,9,7,18,6,11,5,12,4,13,3,1 
DATA 2,14,3,1,4,13,5,12,6,11,7,18,8 
DATA 14,9,18,8,11.7,12,6,13,5,1,4,2 
DATA 3,14,4,2,5,1,6,.13,7,12,8, 11,9, 
DATA 14,19,11,.9,12,8,13,7,1,6,2,5,3 
DATA 4,14,5,3,6,2,7,1,8,13,9,12,1@, 
DATA 14,11,12,18,13,9,1,8,2,7,3,6,4 
DATA 5,14,6,4,7,3,.8,.2,9,1,18, 13,11, 
DATA 14,12,13,11,1,.198,2,9,3,8,4,7,5 


DATA 6,14,7,5,8,4,7,2,18,2,.11.1.12, 
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28 DATA 


5584 DATA 
„1,4,2,3 
S59M DATA 
12,18,11 
S6A@ DATA 
„2,5,3,4 
5618 DATA 
13,11,12 
5629 DATA 
‚3,6,4,5 
5638 DATA 
14,12,13 
5644 DATA 
‚4,7,5,6 
5654 DATA 
15,13,14 
5668 DATA 
‚5,8,6,7 
567@ DATA 
‚„1,14,15 
5688 DATA 
,6,9,7,8 
5698 DATA 


4,2,15,1 


14,13,1,12,2,11,3,19,4,9,5,8,6 


16,9,18,8,11,7,12,6,13,5,14,4, 
2,16,3,1,4,15,5,14,6,13,7,12, 

16,12,11,9,12,8,13,7,14,6,15,5 
3,16,4,2,5,1,6,15,7,14,8,13,9, 
16,11,12,19,13,9,14,8,15,7,1,6 
4,16,5,3,6,2,7,1,8,15,9,14,19, 
16,12,13,11,14,19,15,9,1,8,2,7 
5,16,6,4,7,3,8,2,9,1,18,15,11, 
16,13,14,12,15,11,1,12,2,9,3,8 
6,16,7,5,8,4,9,3,18,2,11,1,12, 
16,14,15,13,1,12,2,11,3,12,4,9 
7,16,8,6,9,5,1@,4,11,3,12,2,13 


16,15,1,.14,2,13,3,12,4, 


8;16;9,7,19,6,11,5,12J4,13, 3,1 


5798 REM Datas fuer 18 Vereine 


5718 DATA 


7,12,8,11, 


3728 DATA 


1,18,2,17,3,16,4,15,5,14,6,13, 
9,18 
18,.19,11,.9,12,8,13,7,14,6,.15,5 


„16,4,17,3,1,2 
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5728 DATA 2,18,3,1,4,.17,5,16,6,15,7,14,8 
‚13,9,12,18,11 

5748 DATA 18,11.12,198,13,9,14,8,15, 7,16, 
6,17,5,1,4,.2,3 

5752 DATA 3,18,4,2,5,1,6,.17,7,16,.8,15,9, 
14,19,13,11,12 

5768 DATA 18,12,13,11,14,18,15,9,16,.8,17 
71,6, 2,9,3,4 

3774 DATA 4,18,5,3.6,2,7,1,8,17,9, 16,182, 
15,11,14,12,13 

578% DATA 18,13,14,12,15,11,16,12,17,97,1 
8,2, 7,3,6,4,5 

5798 DATA 5,18,6,4,7,3,8,2,9,1,18,17,11, 
168,12,15,13,14 

SS2M DATA 18,14,15,13,16,12,17,11,1,19,2 
‚9,3,8,4,7,539,6 

S812M DATA 6,18,7,5,8,4,9,.3,19,2,11,.1,12, 
17,13,16,14,15 

5822 DATA 18,15,16,14,.17,13,1,12,2, 11.3, 
193,4,9,5,8,6,7 

S832 DATA 7,18,8,6,9,5,18,4,11,3, 12, 2,13 
„1,14,17,15,16 

5848 DATA 18,16,17,15,1,14,2,13,3,12,4,1 
1,5,.18,6.9,7,8 

58528 DATA 8,18,9,7,12,6,.11,5,12,4,13, 3,1 
4,2,15,1,16,17 

5868 DATA 18,17,1,16,2,15,3,14,4,13,5,12 
6, 11,7,12,8,97 

3878 DATA 9,18,19,8,11,7,12,6,13,5, 14,4, 
15,3, 16,2, 17,1 

58828 REM Datas, fuer 28 Vereine 

S9924 DATA 1,293,2,19,3,18,4,17,5,16,6,195, 
7,14,8,13,9,12,182,11 

59722 DATA 28,11,12,12,13,9,14,8,15, 7,16, 
6,17,5,18,4,19,3,1,2 

S9712 DATA 2,28,3,1,4,19,5,18,6,17,7,16,8 
‚159, 9,14,18,13,11,12 

5928 DATA 28,12,13,11,14,.19,15,97,16,8,17 
:7,19,6,19,5,1,4, 2,3 
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5934 DATA 3,28,4,2,5, 1,6, 19, 7,18,8,17,9, 

16,19,15,11,14,.12,13 

5948 DATA 28,13,14,12,15,11,16,18,17,9,1 

8,8,19,7,1,6, 2,9, 3,4 

5954 DATA 4,28,5,3,6,2,7,1,8,19,9,18,19@, 

17,11,16,12,15, 13,14 

5968 DATA 298,14,15,13,16,12,17,11,18,19@, 

19,9,1,8,2, 733,6,4,9 

5978 DATA 5,28,6,4,7,3,8,2,9,1,18,19, 11, 

18,12,17,13,16,14,15 

5988 DATA 28,15,16,14,17,13,18,12,19,11, 

1,18,2,9,3,8,4,7,59,6 

5998 DATA 6,28,7,5,8,4,9,3,18,2,11,1,12, 

19,13,18,14,17,15,16 

6AUD DATA 28,16,17,15,18,14,19,13,1,12,2 

„11,3,12,4,9,5,8,6,7 

6218 DATA 7,28,8,6,9,5,12,4,11,3,12,2,13 

‚1,14,19,15,18,16,17 

6828 DATA 2728,17,18,16,19,15,1,14,2,13,5, 

12,4,11,5,18,6,9,7,8 

6838 DATA 8,28,9,7,18,6,11,5, 12,4, 13, 5,1 

4,2,15,1,16,19,17,18 

6848 DATA 28,18,19,17,1,16,2,15,3,14,4,1 

3,59,12,6,11,7,18,8,9 

6258 DATA 9,28,19,8,11,7,12,6,13,5, 14,4, 

15,3,16,2,17,1,18,19 

6B6A DATA 28,19,1,18,2,17,3,16,4,15,5,14 

6,13, 7,12,8,11,9,18@ 

6878 DATA 198,28,11,9,12,8,13,7,14,6,15,5 

„16,4,17,3,18,2,19,1 

6488 REM Datas fuer 2.Liga 1984/85 
Beispiel fuer 28 Vereine 

649@ DATA Hannover „Aachen, Hertha, Wattens 

.„„Saarbru. 

61228 DATA Solingen,kKassel „Nuernbe. „Hombu 

rg, Buersta. 

6118 DATA Offenba. ,„Ulm,Koeln,Freiburg,Da 

rmsta. 

6128 DATA Oberhau. „Stuttga.,EW 99,St.Fau 


1i,Duisburg 
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813% REM Datas fuer Bundesliga 1984/85 


u.,.Karlsru.,„Frankfu. 


Beispiel fuer 18 Vereine 

8149 DATA Muenchen, Gladbach,Werder „Bochu 
m, Hamburg „Kaisers. 
6153 DATA Koeln,Stuttga. „Uerding..„Leverk 


816@ DATA Waldhof ,Schalke,Duessel.,„RBiele 
fe. , Dortmund, RBraunsc. 


6178 
6184 
6178 
szAg 
6210 
6228 
5222 
6242 
6258 
626% 
6278 
6289 
6298 
sag 
6218 
632 
6.0617] 
624% 
ag 
6268 
6270 


REM Datas fuer 


DATA A,B,C,D,.E, 
DATA I1,J,K,L,.M, 


REM Datas fuer 


DATA A,B,C,D,E, 
DATA H,I,J,K,L, 


REM Datas fuer 


DATA A,E,C,D,E, 
DATA G,H,I1,J,.K, 


REM Datas fuer 
DATA A,RB,C,D,E 
DATA F,G,H,I,J 
REM Datas fuer 
DATA A,R,C,D 
DATA E.F,G,H 
REM Datas fuer 
DATA A,EB,C 
DATA D,E,F 

REM Datas fuer 
DATA A,EB 

DATA C,D 


15 Vereine 
F,„G,H 
N,O,F 

14 Vereine 
F.,G 

M,N 

12 Vereine 
F 

L 

18 Vereine 


g Vereine 


6 Vereine 


4 Vereine 
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RE 


cu [->] 


\ 
5 SOSO295:9590995909595995950mauwwuer«er 


Een 


TTTNUUWUSSSDSDDSDDSDDDDDDDD 


wann [eu cu un 


1? Duisburg 
18 Freiburg 
19 Buersta 


Taste druecken) 


(Bitte eine 
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Knobeln 


Es ist anzunehmen, wie leider bei so vielen neuen Homecomputern 
immer wieder zu beoachten, daß der CPC in der Anfangszeit gro- 
ßenteils mit Spielsoftware ausgerüstet wird. Wir haben in dieser 
Programmsammlung vielmehr den Versuch unternommen, aufzuzeigen, 
wie man auch etwas sinnvolles mit einem Homecomputer machen oder 
aber ihn ein klein wenig genauer kennenleren kann. 


Jedoch soll es auch nicht an Spielerei mangeln. Zu diesem Zweck 
haben wir ein sehr ausführiches Knobel- oder Yahtzee-Programm in 
die Programmsammlung aufgenommen. 


Hier werden die Fähigkeiten des CPC-BASIC in die Tat umgesetzt; 
so haben wir es gleich mit vier verschiedenen Bildschirmfenstern 
zu tun, so daß eine leichte Editierung der Eingaben direkt mit 
den Pfeiltasten auf dem Bildschirm sichtbar vorgenommen werden 
kann. 


Die Regeln dieses Würfelspiels sind hoffentlich bekannt (jeder 
muß mit 5 Würfeln versuchen, die 12 vorgegebenen Bedingungen zu 
erfüllen), sonst schauen Sie bitte mal in einem Spielebuch nach 
oder knobeln sich die Gebrauchsanweisung selbst durch oftmaliges 
Spielen zusammen. Hier nur soviel: Sie sind 12 mal an der Reihe 
und müssen mit jeweils 3 Würfen versuchen, nach der vorgegebenen 
Punktezählung am Ende besonders gut auszusehen, d.h. möglichst 


viele Punkt. zu erzielen. 


Der CPC würfelt nicht nur für Sie, er ordnet die Würfel auch in 
aufsteigender Reihenfolge. Mit den Cursor- und der COPY-Taste 
suchen Sie sich die Wüfel heraus, die ein weiteres mal dem 
Gesetz des Zufalls gehorchen sollen. Ist dreimal gewürfelt wor- 
den, suchen Sie sich mit Hilfe der Cursor- und der (ENTER)-Taste 
die Zeile in der Tabelle heraus, in die ihr hoffentlich gutes 
Ergebnis schließlich landen soll (viele 6 er - Eintrag in das 
Feld '6 er' ...). Jedes Mal wird zudem die erreichte Gesant- 
punktzahl angezeigt. Viel Spaß! 
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leine Strasse 
rosse Strasse 
ull House --- 


00 00 00 00 000 
o ° o 
00 00 00 00 000 


Spielername 


mas ann 


Yahtzee 
leine Strasse 
rosse Strasse 
ull House --- 


18 REM Knobeln 

28 REM CPC Basic Programme 

32 REM Copyright 1984 DATA BECKER % 

Rainer Lueers 

48 INK 8,1=:INK 1,24:INK 2,24 

S@ REM Vorbedingungen fuer 
Programmablauf sicherstellen 

62 MODE 1 

78 INPUT "Anzahl der Spieler (1 bis 4) " 

‚spieler 

88 IF spieler<i1 OR spieler>4 THEN GOSUR 

2359:6G0T0 68 

98 DIM spiel (spieler ,12) „spielt (spieler, 

12) 

122 FOR n=1 TO spieler 

112 PRINT=:PRINT "Spieler"in;":"3;3 

128 INPUT spieler$(n) 

152 IF LEN(spieler$(n))>3 THEN spieler$( 

n)=LEFT$(spieler$(n),S) 

148 IF LEN(spieler$(n))=Z THEN spieler$t 

n)=spieler$(n)+" " 

158 IF LEN(spieler$(n))=1 THEN spieler$( 

n)=spieler$(n)+" " 

162 IF LEN(spieler${n))=® THEN GOSUR 735 

8:RUN 

1784 NEXT n 

1828 MODE 1 

194 REM Fenster fuer Wuerfeldarstellung 

282 WINDOW #1,8,32,1,6 

212% REM Fenster fuer Ergebnistabelle 

228 WINDOW #2,2,42, 7,22 

25@ REM Fenster fuer Informationsbalken 

248 WINDOW #3,1,49,24,24 

252 REM Fenster fuer Auswahl zur 
Tabelle 

26% WINDOW #4,1,1,9,21 

278 REM Festlegen von Untergrund- und 
Schriftfarbe in den 


verschiedenen Fenstern 
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2824 PAPER #4,2:PEN #4,0:CL5S #4:PAPER #3, 
2:PEN #3,2:CLS #4:CL5 #3:PAPER #1,2:PEN 
#1,28:CLS #1:PAPER #2,9:PEN #2,1:CL5S #2:L 
OCATE #4,1,13:PRINT #4,CHR$ (143); 
298 REM Rildschirmaufbau der Tabelle 
322 PRINT#2,"Spielername -> "s:FOR n= 
1 TO spieler:PRINT#2,spieler$(n);" "EN 
EXT n:PRINT#2:PRINT#2:PRINT#2,"1 er ---—- 
en ":PRINT #2,"2 er ---------":PRINT#2 
"ser 77-77 ":PRINT#2,"4 er -------- 
-":PRINT #2,"5 er --------- ":PRINT#2,"6 
er ===> 
3128 PRINT#2,"3 er Pasch ---":PRINT#2,"4 
er Pasch ---":PRINT#2,"Yahtzee -----—— ".p 
RINT #2,"kleine Strasse":PRINT #2,"gross 
e Strasse":PRINT #2,"Full House ---":PRI 
NT #2, STRING$ (36, "="):PRINT #2,"Punkte — 
322% REM Einlesen der Wuerfeldarstellung 
aus DATA-Zeilen 
3329 RESTORE:FOR n=1 TO 4:FOR m=1 TO 3 
348 READ a$(n,m):NEXT m,n 
352 REM Beginn des Hauptprogr amms: 
Ein Spiel mit zwoelf Runden 
3629 FOR runde=1 TO 12 
3728 FOR rundei=1 TO spieler 
388 CLS #3 
3924 LOCATE #3,8,1:FPRINT #3, spieler$ (rund 
ei);" ist dran. Runde"zrunde; 
428 REM Fuenf Zufallszahlen zwischen 
eins und sechs erzeugen 
418 FOR n=1 TO S 
422 RANDOMIZE TIME 
439 a=INT (19% <RND<TIME))) 
449 IF a<i OR a>6 THEN GOTO 428 
458 zahl (n)=a 
468 REM Darstellung des entsprechenden 
Wuer felaussehens 
478 FOR m=2 TO 4 


488 LOCATE #1,n%5-3,m 
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582 
59728 


680 


PRINT #1,a$(a,m-iD; 

NEXT m:NEXT n 

REM Einsprung in 
Wuer felsortierroutine 

GOSUB 954 

REM Jeder Spieler hat drei 
Durchgaenge in einer Runde 

FOR zaehler=1 TO 2 

REM Einsprung in Aenderungsroutine 

GOSUB 828 

CLS #1 

FOR n=1 TO 5 

REM Fuenf Zufallszahlen zwischen 
eins und sechs erzeugen 

IF wa(n)=1 THEN RANDOMIZE TIME: a=INT 


(1MX(RND(TIME))): IF a<i OR a>6 THEN GOTO 
6298 ELSE zahl (n)=a ELSE a=zahl (n):GOTO 


622 
618 


REM Darstellung des 
entsprechenden 
Wuer felaussehens 

wa(n)=g 

FOR m=2 TO 4 

LOCATE #1,n%5-3,m 

PRINT #1,a$(a,m-i); 

NEXT m 

NEXT n 

REM Einsprung in 
Wuer felsortierroutine 

GOSUR 958 

NEXT zaehler:zaehler=g 

REM Was soll mit dem erzielten 
Wurf gemacht werden” 

GOSUB 14292 

NEXT rundei,runde 

REM Spielende und Frage: 
Nochmal ? 

a$=INKEY$ 

IF a$="" THEN GOTO 758 


ELS 
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784 INPUT "Nochmal ( /N) "ıa$ 

798 a$=UPPER$ (a$) 

8@g9 IF LEFT$(a$,1)="N" THEN END ELSE RUN 
812 REM Aenderungsroutine 

828 LOCATE #1,3,5:PRINT #31,CHR$ (244); 
839 a$=INKEY$ 


848 IF a$="" THEN GOTO 834 
854 REM Ffeiltaste nach ”’links” 
gedrueckt 


8624 IF a$=CHR$ (242) AND POS(#1)>4 THEN L 
OCATE #1,P0S(#1)-1,5:PRINT #1," "3:LOCAT 
E #1,P05(#1)-6,5:PRINT #1,CHR$ (244) ,:G6G0T 
0 838 
8728 REM Pfeiltaste nach ’rechts’ 

gedrueckt 
8828 IF a$=CHR$ (243) AND POS(#1)<24 THEN 
LOCATE #1,P0S5(#1)-1,5:PRINT #1," "3:L0OCA 
TE #1,P0S5(#1) +4,5:PRINT #1,CHR$ (244) 3:60 
TO 8398 
892 REM COPY-Taste gedrueckt 

(Wert = umgekehrt der Anzeige) 
92a IF a$< >CHR$ (224) THEN GOTO 929 ELSE 
IF wa(<(POS(#1)+1)/5)=1 THEN wa((POS(#1)/ 
+1) /S)=B:PEN #1,2:LOCATE #1,P0S(#1)-1,1: 
PRINT #1," ";3:PEN #31,8:LOCATE #1,P0S(#1) 
3 ELSE wat (POS(#1)+1)/5)=1:L0OCATE #1,PO 
5(#1)-1,1:PRINT #1,CHR$ (245); :LOCATE #1, 
POS (#1),5 
9128 REM <ENTER>-Taste gedrueckt 
9294 IF a$=CHR$(13) THEN RETURN 
9324 GOTO 838 
949 REM Wurfsortierroutinen 
954 FOR nn=1 TO 5 
958 z2(nn)=7 
978 NEXT nn 
9898 FOR nn=1 TO S5S 
998 FOR mm=1 TO 5 
1998 IF zahl (mm)<=z2t(nn) THEN z2(nn)=zah 
1 (mm) :z1 (nn) =wa (mm) :mer ker=mm 


12918 NEXT mm 
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12828 zahl (merker)=7 
123g NEXT nn 
1848 FOR nn=1 TO SS 
1259 zahl (nn) =z2 (nn) 
19694 wainn)=zi(nn) 
1478 NEXT nn 
1a8@4 CLS #1 
12894 FOR nn=1 TO 5 
112029 FOR mm=2 TO 4 
1118 LOCATE #1,nn%5-3,mm: PRINT #1,a$(zah 
linn) „mm-1); 
11220 NEXT mm 
1138 NEXT nn 
1142 LOCATE #1,1,.6:PRINT #1,STRING$ (8,CH 
R$(143));" Wurf";zaehler+1; STRING$ (9, CHR 
$(143))5 
11528 RETURN 
116524 REM Aussehen der Wuerfel mit 
der entsprechenden Augenzahl 
(eins bis sechs) in 
DATA-Zeilen 
1174 REM Wuerfelzahl 1 
1184 DATA " . 
1198 DATA " 0 " 
1298 DATA " N 
12128 REM Wuerfelzahl 
1228 DATA " 0" 
12358 DATA " ” 
1248 DATA "O0 " 
258 REM Wuerfelzahl 
1269 DATA " 0" 
1278 DATA " 0" 
1288 DATA "O0 " 
1294 REM Wuerfelzahl 4 
1388 DATA "0 0" 
1518 DATA " " 
1329 DATA "0 0” 
1338 REM Wuerfelzahl 5 
1348 DATA "O0 0" 
1359 DATA" DO" 


2) 


A 
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1362 DATA "O0 0" 

1378 REM Wuerfelzahl 6 

1388 DATA "000" 

1298 DATA ” zu 

1489 DATA "000" 

1419 REM Eingaberoutine fuer 
Tabellenwerte 

14298 CLS #4 

1439 LOCATE #4,1,13 

1448 PRINT #4,CHR$ (143); 

1458 LOCATE #4,1,1 

1468 PRINT #4,CHR$ (243); 

147% a$=1INKEY$ 

1488 IF a$="" THEN GOTO 1479 

1498 REM Ffeiltaste nach ”’unten’” 
gedrueckt 

15994 IF a$=CHR$ (241) AND VPOS(#4)<13 THE 

N LOCATE #4,1,VPOS(#4)-1 ELSE GOTO 15582 

1512 PRINT #4,” ";z 

1524 LOCATE #4,1,VPOS(#4) 

1538 PRINT #4,CHR$ (2453); 

1542 REM Ffeiltaste nach ’oben’” 
gedrueckt 

15529 IF a$=CHR$ (248) AND VPOS(#4)>2 THEN 

LOCATE #4,1,VPOS(#4)-1 ELSE GOTO 1628 

1568 PRINT #4," "; 

1578 LOCATE #4,1,VPOS(#4)-2 

1589 FRINT #4,CHR$ (243); 

1598 REM <ENTER>-Taste gedrueckt. 
wenn Wert noch nicht 
eingtragen, so wird er vermerkt 
und die Punktzahl gemaess 
Unterprogramm errechnet 

1620 IF a$=CHR$ (13) THEN IF spieli (runde 

1,VPO5S(#34)-1)@>1 THEN spielil(rundei,VFOS 

(#4) -1)=1:G0SUB 1828 ELSE GOTO 1474 ELSE 

GOTO 1478 

151% spiel (rundel,runde)=ergebnis 

1628 CLS #3 


163529 LOCATE #3,9,1 
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1648 FRINT #3,"Spieler ";spieler$(rundei 

I)3":"zergebnis; "Punkte”z 

16529 REM Eintragung des Ergebnisses in 
die Tabelle (an der 
entsprechenden Stelle) 

16698 LOCATE #2, 14+trunde1X5,VPOS (#4) +1 

1672 PRINT #2,ergebnis; 

1688 LOCATE #2,14+runde1X5,16 

1698 FOR n=1 TO 12 

1722 endergebnis (rundei)=endergebnis (run 

dei)+spiel (rundeil,n) 

1718 NEXT n 

1728 PRINT #2,endergebnis(rundel); 

1734 endergebnis(rundei)=# 

17498 a$=INKEY$ 

1754 IF a$="" THEN GOTO 17482 

1762 CLS #1 

1778 CLS #4 

1788 LOCATE #4,1,1X3 

1798 PRINT #4,CHR$ (143); 

18298 CLS #3 

18128 RETURN 

1828 ergebnis=g 

1859 REM Unterprogramme zur Errechnung 
der erzielten Punktzahl 

1842 ON VPOS(#4)-1 GOSUB 1879,19298,1978, 

2029,20794,21208,.2170,22099, 22390, 2269,2302, 

RT] 

18528 RETURN 

18529 REM 1 er Wurf gezaehlt 
(Addition aller i er) 

1878 FOR n=1 TO 5 

1882 IF zahl (n)=1 THEN ergebnis=ergebnis 

+1 

189@ NEXT n 

19028 RETURN 

19719 REM 2 er Wurf gezaehlt 
(Addition aller 2 er) 


1928 FOR n=1 TO S 
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1938 IF zahl(n)=2 THEN ergebnis=ergebnis 
+2 
1948 NEXT n 
1959 RETURN 
1968 REM 3 er Wurf gezaehlt 
(Addition aller 3 er) 
1972 FOR n=1 TO 5 
1988 IF zahl (n)=3 THEN ergebnis=ergebnis 
+3 
1998 NEXT n 
2828 RETURN 
2018 REM 4 er Wurf gezaehlt 
(Addition aller 4 er) 
29828 FOR n=1 TO 5 
29238 IF zahl (n)=4 THEN ergebnis=ergebnis 
+4 
29849 NEXT n 
22858 RETURN 
2268 REM S er Wurf gezaehlt 
(Addition aller 5 er) 
2878 FOR n=1 TO S 
2888 IF zahl (n)=5 THEN ergebnis=ergebnis 
+5 
2898 NEXT n 
2198 RETURN 
2112 REM 6 er Wurf gezaehlt 
(Addition aller 6 er) 
2128 FOR n=1 TO 5 
21352 IF zahl (n)=6 THEN ergebnis=ergebnis 
+6 
2148 NEXT n 
2158 RETURN 
2168 REM 3 er Pasch-Pruefung;z 
3 er Pasch = alle Wuerfelaugen 
2178 IF (zahl (1)=zahl (2) AND zahl (2)=zah 
1(3)) OR (zahl (2)=zahl (3) AND zahl (3)=za 
h1(4)) OR (zahl (3)=zahl (4) AND zahl (4)=z 
ahl (59) THEN FOR n=1 TO Szergebnis=ergeb 
nistzahl (n):NEXT n 
2182 RETURN 
219@ REM 4 er Pasch-Pruefung;z 
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2288 IF (zahl (1)=zahl (2) AND zahl (2)=zah 
1(3) AND zahl (3)=zahl (4)) OR (zahl (2)=za 
h1(3) AND zahl (3)=zahl (4) AND zahl (4)=za 
h1(5)) THEN FOR n=1 TO S:rergebnis=ergebn 
istzahl (n):NEXT n 
2218 RETURN 
2228 REM 5 er Pasch = Yahtzee-Pruefung 

Yahtzee = 59 Punkte 
2239 IF zahl (1)=zahl (2) AND zahl (2)=zahl 
(3) AND zahl (3)=zahl (4) AND zahl (4)=zahl 
(5) THEN ergebnis=52 
2248 RETURN 
2259 REM kleine Strasse-Pruefung; 

kleine Strasse = 38 Punkte 
2268 IF (zahl (1)=zahl (2)-1 AND zahl (2)=z 
ahl(3)-1) OR (zahl (2)=zahl (3)-1 AND zahl 
(3)=zahl (4)-1) OR (zahl (3)=zahl (4)-1 AND 
zahl (4)=zahl (5)-1) OR (zahl (1)=zahl (SF) - 
1 AND zahl (2)=zahl (4)-1) OR (zahl (1)=zah 
1(4)-1 AND zahl (2)=zahl (5)-1) THEN ergeb 
nis=Ig 
2278 IF zahl (2)=zahl (4)-1 AND zahl (4)=za 
h1(5)-1 THEN ergebnis=3d 
2288 RETURN 
229@ REM grosse Strasse-Pruefung; 

grosse Strasse = 48 Punkte 
2399 IF (zahl (1)=zahl (2)-1 AND zahl (2)=z 
ahl (3)-1 AND zahl (5)=zahl (4)-1) OR (zahl 
(2)=zahl (3)-1 AND zahl (3)=zahl (4)-1 AND 
zahl (4)=zahl (5)-1) OR (zahl (1)=zahl (SF) -1 
AND zahl (3)=zahl (4)-1 AND zahl (4)=zahl ( 
5)-1) THEN ergebnis=42 
23129 RETURN 
2328 REM Full House-Pruefung; 

Full House = 25 Punkte 
23392 IF (zahl (1)=zahl (2) AND zahl (3)=zah 
114) AND zahl (4)=zahl (5)) OR (zahl(1)=za 
hl(2) AND zahl (2)=zahl (3) AND zahl (4)=za 
h1<(5)) THEN ergebnis=25 
2342 RETURN 
2358 a$=INKEY$: IF a$="" THEN GOTO 23528 E 
LSE PRINT ASC(a$):G0TO 2358 
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Codeknacker 


Dieses Spiel gibt es in mannigfaltigen Versionen z.B. unter den 
Namen 'Superhirn' und "Mastermind'. 


Wir haben das Computerprogramm jedoch umbenannt in "Codeknak- 
ker', weil es sich von den Vorbildern doch in gewisser Weise 
stark unterscheidet. 


Zu Beginn können Sie wählen, aus wieviel Farben=Zahlen die zu 
erratende Folge zusammengesetzt sein soll. Es stehen bis zu acht 
Farben=Zahlen zur Verfügung. 


Anschließend erfolgt eine zweite Wahl: Aus wieviel Teilen soll 
die Folge bestehen? Es ist zwar möglich mehr Farben als Teile zu 
bestimmen, allerdings ist das umgekehrte Verhältnis nicht vorge- 
sehen und wird somit ignoriert. Dies hat folgenden Grund: Der 
Spieler soll zu Beginn wissen, mit welcher Planung er es zu tun 
hat; so ist es klar, daß nach der Auswahl von jeweils acht 
Farben und acht Stellen auch wahrlich acht Farben in der Folge 
auftreten; Doppel oder gar Dreier sind somit ausgeschlossen! 


Aus diesem Grund wird während des Spielablaufs ähnlich weiter- 
verfahren: es nützt nicht, durch Vorgabe z.B. der Zahlenkombina- 
tion '11112222' herausfinden zu wollen, ob die '1' bzw. '2' 
gleich mehrfach und an den entsprechenden Stellen in der Folge 
vorkommt. 


Es wird sowohl auf dem Bildschirm angezeigt, wie viele Farben 
richtig aber auch wie viele gar genau an der richtigen Stelle 
positioniert wurden. Für den "Codeknacker'-Anfänger ein recht 
schwieriges Unterfangen. Aber Übung macht den Meister. Um den 
Überblick nicht zu verlieren, wird der Bildschirm nach jeder 
Eingabe hochgescrollt (die letzten vier bis fünf Eintragungen 
bleiben oben sichtbar). Zudem werden alle Ergebnisse und Zahl- 
eingaben festgehalten. Man kann die gesamte Eingabefolge durch 
Drücken der (ENTER)-Taste wieder auf den Bildschirm bringen. Nun 
aber genug der Vorstellung. Viel Spaß! 
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Eingabe 
dezimal 


Eingabe 
dezimal 


Eingabe 


(Dez.,Hex o. Bin.» ? d255 


binaer oder dual hexadezimal 
888080008 11111111 


(Dez.,Hex o. Bin.» ? hffff 
binaer oder dual hexadezimal 
)IBBBBBBBESBEBBBBBBE 


<Dez.,Hex o.-Bin.> ? bi1i1l 
binaer oder dual hexadezimal 
88880880868 880888111 


(Dez.,Hex o. Bin.) ?’ 98 
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Umrechnung DEZ. 5 ersystem 
Ihre Eingabe (DEZ. 

Anzahl: 46 MOD: 

Anzahl: 9 MOD: 

Anzahl: 1 MOD: 

1418 


Welches Zahlsystem (2 bis 9) 


- 159 — 


f$ 

= 17) 

468 
98 

fi 
198 
RB 4 
118 
oOTOo 
12@ 


139 
148 
159 
169 


178 
188 
192 
208 


3 h 
BB UN 
Se) u 


NN N NN MN KH 
{an 
25} 


[=17] 


REM Codeknacker 
REM CPC464 Basic Programme 
REM Copyright 1984 DATA BECKER % 
Rainer Lueers 
REM Dimensionierung und Abfrage 
der Vorbedingungen 
DIM merk$(189) „schwarz (1988) „weiss (198 


PAPER 2:PEN 1:MODE 1 
INPUT "Anzahl der Farben (1 bis 8) "; 


IF VAL(f$)<1 OR VAL(f$):>8 THEN GOSUB 


:G0T0O 79 
INPUT "Anzahl der Stellen (1 bis 8) " 
$ 

IF VAL(fFiIS)<1 OR VAL(f$)>8 THEN GOSU 


62:G0T0 98 

IF VAL (f1$) >VAL(f$) THEN GOSUR 4692:6 
98 

REM Auswahl der Zahlen durch die 

RND=Zufallsfunktion 

FOR n=1 TO VAL (fi1$) 

a=INT (1@4RND (TIME) ) 

IF axi OR a>VAL(f$) THEN GOTO 148 
REM Alle ausgewaehlten Zahlen 

sollen unterschiedlich sein 

FOR m=1 TO n-1 

am) =VAL(MID$(a$,m,1)) 

NEXT m 

FOR m=1 TO n-i 

IF a=satm) THEN GOTO 144 ELSE NEXT m 
a$=a$+RIGHT$(STR$(a),1) 

NEXT n 

FOR n=1 TO VAL(#1$) 
a(n)!=VAL<(MID$(a$,n,1)) 

NEXT n 

ELS 

REM Eingaberoutine 


- 160 - 


294 FRINT "Eine Zahl mit"z;VAL(FIS); "Ziff 
ern "ı:1INPUT f3s$ 
ZS8g REM Auflisung aller Zahlen, die 
bisher eingegeben wurden 
S18 IF fi$="" THEN ECLS:FOR zi=1 TO z:PRI 
NT "Zug"z1; TAB{8) ;merk$(z1);" OK:";sc 
hwarz (zi);" not Ok:"sweiss(zi):NEXT zi: 
FRINT:GOTO 298 ELSE IF LEN{FIS)I<SHVAL (CHI 
$%) THEN GOSUR 459:60T0 298 
32@ FOR n=1 TO VAL(f1$) 
SS@ bin)=VAL(MIDS(FI$,n,1)) 
348 IF atn)=bin) THEN schwarz=schwarz+i: 
c(n)=-1 
35@ NEXT n 
3628 FOR m=1 TO VAL(fF1$) 
37@ FOR n=1 TO VAL (fi$) 
3824 IF atn)=bim) AND n<>m THEN weiss=wei 
ss+t1:G0T0 41@ 
398 NEXT n 
489 REM Ausgaberoutine und 
anschliessende Ueberpruefung 
auf Richtigkeit 
418 NEXT m:PRINT "Farben an der falschen 
Stelle :";weiss 
428 z=z+1:merk$(z)=fi$:weiss(z)=weiss:sc 
hwarz {z)=schwarz :weiss=g 
A438 PRINT "Farben an der richtigen Stell 
e:";schwarz 
448 IF schwarz=VAL(f1$) THEN PRINT:PAPER 
1:PEN 8:PRINT " Genau richtig in";z;"Zu 
egen";:PAPER S:PEN 1:PRINT:PRINT: INPUT " 
Nochmal (J/ ) "35f%:1IF UFPER$(LEFT$CHS,1) 
}="J3" THEN RUN ELSE END ELSE schwarz=2:G 
0OTO 298 
4524 GOTO 298 
A&& PRINT:PRINT "Falsche Eingabe!":PRINT 
: RETURN 


- 161 - 


Reaktion 


Um Leute zu überraschen, vielleicht auch, um Leute, die bisher 
der ganzen Computerei eher negativ gegenüberstehen, sei dieses 


Programm zur Vorführung dringendst empfohlen. 


Der ganze Inhalt, was die Programmierung an und für sich be- 
trifft: Es muß eine Taste so schnell wie nur irgendwie möglich 
gedrückt werden, wenn der Computer dazu auffordert. Im Nachhi- 
nein erfolgt eine Wertung und es wird ein weiteres Mal zu einem 


neuen Spiel mit bis zu vier Teilnehmern aufgefordert. 


Der Clou dieses Programms liegt vielmehr darin, wie mit dem 
nichts ahnenden Computerbediener umgegangen wird. Wie bereits an 
anderer Stelle in diesem Buch gesagt: Die Computer sind alle 
sehr dumm. Sie werden erst durch die Programmierung von uns 
Menschen schlau gemacht. Gerade dies wird dem laienhaften Benut- 
zer beim Ablauf dieses Programms klar gemacht: 


Erfolgt zu Beginn keine Namenseingabe, wird der CPC bzw. dieses 
Programm langsam aber sicher richtig knartschig ... bis er gar 
droht, man mache den Computer durch Fehler kapputt! Hat jedoch 


alles seine Ordnung, antwortet der CPC artig mit 'Danke'. 


Beim Spielablauf achtet der CPC ordentlich darauf, ob nicht 
vielleicht geschummelt wird. Ist dies der Fall, erfolgt eine 
Ermahnung und eine Zeitstrafe. 


Die gemessene Zeit wird nicht nur bis zum hundertsten Bruchteil 
einer Sekunde genau angezeigt, nein der CPC gibt auch seinen 
Kommentar dazu ('SUPER' ... "sehr schwach'). 


Programmtechnisch gesehen ein Klacks! Dafür aber vielleicht als 
"Entschuldigung' für den sehr vernünftigen (!) Kauf des CPC für 
all die lieben Mitmenschen gedacht. Vielleicht machen Sie so 
auch noch Computerfreaks aus ihnen, dann ist die Freude und 
Begeisterung halt mindestens doppelt so groß wie zuvor. Noch ein 
Verwendungszweck dieses Programms: Messen Sie mal die Reakti- 


onszeiten in verschiedenen Gemütslagen und Zuständen! 
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*#%# 2-80 Disassenbler * « « 


Tıtel ? Einfache Addıtıon ın Maschinensprache 


Startadresse (ın Dez.) ? 
Endadresse (ın Dez.) ? 


Datafelder vorhanden (J/ ) ? 
Drucker oder Bıldschirn (D/B) ? b 
Einfache Addıtıon ın Maschınensprache 
43776 2 Bytes 0 3E04 
43778 2 Bytes ? 0607 
43788 1 Bytes 4 ) 
43781 3 Bytes 5 32007D 
43784 1 Bytes 8 [9 
* * Ausdruck fertig * * 
Nochmal (J/ ) 


3280 DATA 3e,04,06,07,80,32.00.7d 
ae 
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18 REM Reaktion 
2a REM CPC464 Basic Programme 
38 REM Copyright 1984 DATA BECKER % 
Rainer Lueers 
48 REM Vorbedingungen treffen 
58 INK 8,9:INK 1,24:PEN 1:PAPER 8:MODE 1 
6# INPUT "Wie viele Teilnehmer (1 bis 4) 
"sf$ 
78 IF VAL(FS)<L OR VAL(f$)>4 THEN GOTO & 
2 
828 FOR n=1 TO VAL(f$) 
98 PRINT:PRINT "Ihr Name, bitte, Spieler 
"ınz;:INPUT fi$(n) 
128 REM Reaktion auf falsche Eingabe 
11@ IF fi$(n)="" AND merker=g THEN PRINT 
:PRINT "Seien Sie doch nicht feige! 
Jede Sache hat auch einen Namen. 


Soweit ich dummer Computer weiss, gilt 


das auch fuer Menschen und Tiere!":m 
erker=1:6G0T0 98 
128 IF fi$(n)="" AND merker=1i THEN PRINT 


:PRINT "Diese Menschen, diese Menschen! 
Gehen wir also mal behutsam ans 
Werk... vielleicht klappt es so! Ich hei 


sse CFC464. Nein, ich bin nicht vom 
Mars... Mein Vorname ist Schneider (komi 
sch," 

ia IF f1$(n)="" AND merker=1 THEN PRINT 


"wie?). Du darfst mich ruhig ’Schneider 
” nennen ... aber nur wenn Du mir sagst, 
wie Du mit Vornamen heisst. Also bitte 
I":merker=2:G0T0 98 
148 IF f1$(n)="" AND merker=2 THEN PRINT 
:PRINT "Noch eine Fehleingabe und der Co 
mputer ist kapputt ... ich darf doch bi 
tten ..."ı:merker=3:60T0 94 
158 IF fi$(n)="" AND merker=I THEN FOR n 
=1 TO 199A@R:PRINT CHR$ (PEEK (n));=NEXT 
15@ merker=®g 
178 NEXT n 
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182 MODE 8:LOCATE 8,12:PRINT "Danke" 

192 FOR n=1 TO 2209:NEXT n 

229 MODE 1:FOR n=1 TO VAL(f$) 

2128 PRINT fi$(n);"t!tt"2PRINT:PRINT:PRIN 
T "Du bist dran!":PRINT "Druecke eine me 
iner Tasten, wenn Du bemerkt hast, d 
ass sich die Bildschirmfarbe 
geaendert hat." 

Z@ REM Rerechnung der Zeitspanne 

328 FOR m=1 TO 2289: NEXT m: a=1@99XRND (1) 
:FOR m=1 TO az:a$=INKEY$: IF a$="" THEN NE 
XT m:GOSUR 2898 ELSE MODE 8:PRINT "Schumm 
ler!!! ı"zPRINT "Du hast 5 Sekunde":PRINT 
"gebraucht.":f(n)=5:FOR m=1 TO 29829: NEXT 
m:MODE 1 

249 REM Endergebnis ausgeben 

258 NEXT n:CLS:FOR n=1 TO VAL (#$) :PRINT 

fi1${n);" hat":PRINT f(n);, "Sekunden gebra 
ucht !"=PRINT:NEXT n:FRINT:PRINT: INPUT "N 
och ein Spiel ( /N) ";z$:IF LEFT$(UPPER$ 
(z$),1)="N" THEN END 

268 PRINT: INPUT "Mit den gleichen Spiele 
rn (J/ ) "3z$: IF LEFT$(UPPER$ (z$) ,1)="J" 
THEN GOTO 2924 ELSE RUN 

278 REM Unterprogramm zur Zeitkontrolle 

284 MODE &:PAPER 1:CLS:b=TIME 

298 a$=INKEY$: IF a$="" THEN GOTO 298 

Ze c=TIME:FAPER @:MODE 1:# (n)=(c-b) /259 
:PRINT fi$(n) PRINT "Du hast";# (n);"Seku 


nden gebraucht!" 
S1@8 PRINT 


Z2@ REM Wertung 

Ssa9 IF ftn)<8.9425 THEN PRINT "SUP E R" 
:G0T0 372 

S48 IF fin)<2.1 THEN PRINT "Ganz gut":G60 
To 378 

352 IF fin)<@.5 THEN PRINT "schwach":GOT 
0 3782 

36484 FRINT "Sehr, sehr schwach!" 

378 FOR m=1 TO 22@9:NEXT m:CLS:RETURN 


2 
n 
< 
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Zahlsystemumrechner 


Der CPC kann nicht nur Zahlen in dem uns vertrauten Dezimalsy- 
stem abbilden, er hat auch spezielle Befehle zum Umrechnen in 
andere Zahlsysteme so z.B. bedeutet '&H' einer Zahl vorange- 
stellt: Hexadezimalzahl; '&X' bedeutet Binär- bzw. Dualzahl. 


Auf diese Art und Weise können wir "PRINT &HFF' eingeben und 
bekommen als Ergebnis dieser Hexadezimalzahl umgerechnet in eine 
Dezimalzahl '255' auf dem Bildschirm ausgegeben. 


Geben wir "PRINT &X111' ein, so erhalten wir gar als Ergebnis 
dieser Binärzahl umgerechnet in eine Dezimalzahl: '7'. 


Schwierig wird es schon, wenn man direkt von einer Hexadezimal- 
zahl in eine Binärzahl umrechnen will. Unmöglich wird es gar, 
wenn wir mit einem anderen geläufigen Zahlsystem außer hexadezi- 
mal, dezimal oder binär (z.B. oktal) arbeiten wollen. 


Um die Zahlsysteme besser kennenzulernen ist nun dieses Programm 
entstanden. Sie können durch Voranstellung des entsprechenden 
Buchstabens ('H' für Hexadezimal, 'B' für Binaer, 'D' für Dezi- 
mal) jede eingegebene Zahl in jedem dieser drei Zahlsysteme 
darstellen lassen. 


Außerdem können Sie durch Drücken der (ENTER)-Taste Ihre Dezi- 
maleingaben in ein Zahlsystem zwischen 2 und 9 umrechnen. Hier- 
bei geschieht etwas interessantes und gleichzeitig lehrreiches: 
Die Zahl in dem gewünschte Zahlsystem wird vor Ihren Augen 
ausgerechnet - Schritt für Schritt. 


Wie geht das vor sich? Wir wählen ein Beispiel ... rechnen wir 
im Fünfer-Zahlensystem. Drücken Sie also (ENTER) auf die Frage 
nach 'Dez.,Hex. o. Bin.'. Auf die nächste Frage antworten Sie 
mit '5' und geben nun z.B. die Zahl '230' ein. Die ausgerechnete 
Zahl im Fünfersystem ist die '1410'. 
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Nun zur Erklärung des Vorgangs: Im Fünfer-Zahlsystem haben wi 
die Ziffern '0, 1, 2, 3 und 4'. Der CPC teilt unsere eingegeben 
Zahl '230' durch 5. Ergebnis: '46' Rest '0'. Anschließend wir 
die '46' geteilt: '9' Rest '1'. Nun wird die '9' geteilt: '1 
Rest '4' und so bleibt schließlich ein Rest '4' übrig. Schreibe 
wir uns die Restwerte noch einmal auf: 

1.0 2.1 3. 4. Beim letzten Wert nehmen wir nich 
nur den Rest '4', sondern auch die Anzahl = '1'. 


So erhalten wir für Dezimal '230' die Zahl im Fünfersystem 
'1410'. Probe gefällig? Hierzu bilden wir Fünfer-Potenzen vo 
rechts nach links: 

1) 0*5T0=0 2) 1* 5f1l=5 3) 4 * 5f2 = 100 

4) 1% #3 = 125 -) 0 +5 + 100 + 125 = 230 ! 


Nur der Vollständigkeit halber erwähnt: Auch ohne das Program 
'Zahlsystemumrechner' kann man mit dem CPC-Basic immerhin Dezi 
mal-Hexadezimal und Dezimal-Binär umrechnen und zwar mit de 
Befehlen: 'HEX$(" und "BIN$('. 
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18 REM Zahlsystemumrechner 

28 REM CFC454 Basic Frogramme 

38 REM Copyright 1984 DATA BECKER % 

Rainer Lueers 

AS INK 8,1:INK 1,24:INEK 2,1,24:effekt=2: 

normal>=1 

5@ ON ERROR GOTG 41% 

62 MODE 1 

74 REM Auswahl zwischen den Zahlsystemen 

88 INFUT "Eingabe (Dez.,Hex o. Ein.) "sa 

$: IF VAL (a$) 653525 THEN GOTO 924 ELSE IF 

a$="" THEN G0TO 1688 ELSE b$=LEFT$(a$,1): 

b$=UFFER$(b$): IF b$="H" THEN GOSUR 19 E 

LSE IF b$="R" THEN GOSUR I64 ELSE IF b$= 

"D" THEN a$=RIGHT$(a$,LEN(a$)-1) 

924 REM Berechnung der Dezimal-, Einaer- 
und Hexadezimalzahlen fuer den 
Eildschirmausdruck 

1A2# FRINT:FRINT "dezimal binaer oder du 

al hexadezimal" 

119 FRINT "------- ne - Zereezen 


128 FRINT a$: TAB(9):" "; 

138 b$=RBIN$ (VAL (a$) „18) :FRINT LEFT$(b$,8 

)3" "RIGHTS (bS,8);" ": 

148 FRINT TAR(Z2) ;HEX$ (VAL (a$).4) 

158 FRINT:FRINT:GOTO 8% 

164 MODE 1 

1793 REM Auswahl zwischen den 
Zahlsystemen Z bis 7 

185 INFUT "Welches Zahlsystem {Z bis 9 


1958 IF a=f# THEN RUN ELSE IF a@XZ OR a>97 T 

HEN GOSUR 448:G60T0 16% 

za8 CLS:FRINT "Umrechnung DEZ. -"sa;"ers 

ystem":FRINT "========================== 

==":FRINT 

z18 REM Berechnung der Zahlen im 
gewsehlten Zahlsystem (2 bis 9} 
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zZ23 INFUT "Ihre Eingabe (DEZ. "sbz:IF b> 

>2767 THEN GOSUE 448:G0T0 169 ELSE FRINT 

zE9 c=böa 

z24A FRINT "Anzahl:"ıc; 

=58 d=b MOD a 

2629 FRINT TARB(1S?I: "MOD: ";d 

278 a4$=RIGHT$ (5TR$(d) ,„1)+a%$ 

z883 IF c<a THEN a$=STR$(c)+a$: FRINT:FRIN 

T atz:a$="":FRINT:FRINT:PRINT:GOTO 188 

293 b=c:60T0 ZIZ8 

ag REM Eingabe der Hexadezimalzahl 
ueberpruefen und umrechnen 

z1@ IF LEN(a$):5 THEN RETURN 

322 b$s="%h "+MIDE(a$,2,LEN(a$)-1) 

a2 IF VAL(bEIKB THEN a$=STR$ (VAL (b$) +65 

F36) ELSE a$=STR$ (VAL (b$)) 

3409 RETURN 

359 REM Eingabe der RBinaerzahl 
ueberpruefen und umrechnen 

269 IF LEN(a$) >17 THEN RETURN 

378 bs="%u "+MID$ (a, 2,LEN(a$)-1) 

288 IF VALIbE)«B THEN a$=STR$ (VAL (b$) +65 

536) ELSE a$=STR$ (VAL (bE) ) 

298 RETURN 

ASS REM Errorbehandlungsroutine 

419 RESUME 426 

42a RUN 

420 END 

423 FEN effekt:FRINT:FRINT TAB{12) "Fals 

che Eingabe!" 

Sag FEN normal:GOSUR 46%: RETURN 

46 FRINT:PRINT TAR(7) "<Ritte eine Tast 

e druecken:" 

478 #3=INEKEYS: IF f$="" THEN GOTO 476 

4885 RETURN 
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Disassembler 


In den Programmen 'Speicher 1' bis "Speicher 5' sowie im Varia- 
blen-Referenzlistenprogramm haben wir uns bereits ein klein 
wenig mit den "Innereien' unseres CPC beschäftigt. Unter 'Inne- 
reien' sei hier verstanden: Wie geht es überhaupt vor sich, daß 
ein unmenschliches Wesen wie der Computer zu denken fähig ist 
(merken Sie sich dazu folgendes: Ein Computer ist immer nur so 


schlau, wie die Menschen, die ihn programmiert haben). 


In den Programmen 'Speicher 1' bis 'Speicher 5' sind wir aber 
noch nicht tief genug in unseren CPC eingedrungen. Wir haben uns 
seinerzeit nämlich nur angeschaut, wie unsere BASIC-Programme 
Zeilennummer für Zeilennummer, Befehl für Befehl, im Speicher 
abgelegt werden, aber nichts über die Verarbeitung zu den Befeh- 
len und zu dieser Art der Abspeicherung hin kennengelernt. Dabei 
wurde auch erwähnt, daß der CPC wie jeder andere Computer auch 
auf die Grundststellung zurückgelangt: an oder aus bzw. in 
binärer Form: 0 oder 1. Aus dem Erkennen einer Vielzahl von 
aufeinanderfolgenden 0 en oder 1 en erkennt der Computer dann 
ein Zeichen, manchmal auch einen Befehl. 


Unser BASIC nennt sich eine höhere Programmiersprache: sie ist 
schon mit einer Vielzahl verständlicher Begriffe aufgebaut, so 
daß wir bei der Benutzung dieser Befehle vielmehr eine Vorstel- 
lung davon bekommen, was der Computer tun kann, als wenn wir nur 


stur 0 en oder 1 en in den Speicher eingeben würden. 


Der in diesem Programm untersuchte Assemblercode ist eine Stufe 
zwischen BASIC und Maschinensprache. Wir haben hier eine Viel- 
zahl von Befehlen zur Verfügung (beim Prozessor Z80A im CPC sind 
es gar mehr als 600 ), die allerdings bei weitem nicht so wir- 
kungsvoll arbeiten wie die BASIC-Befehle. Im Speicher benötigen 
diese Befehle teils 1 Byte, teils 2 Bytes, manchmal auch gar 3 
Bytes (1 Byte = 1 Speicherplatz). Das Programm "Disassembler' 
hat sämtliche Z80A-Assemblercodes (man nennt sie auch Mnemoniks) 
gespeichert und untersucht den von uns vorgegebenen Speicherraum 
nach deren Vorkommen. Dabei untersucht es das Vorkommen be- 


stimmter Zeichenfolgen (ähnlich wie bei dem 'Speicher'-Programm, 
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wo wir nach der Zeichenfolge 'Laenge' gesucht haben); werden 
diese Zahlenfolgen irgendwo angetroffen, wird der entsprechende 
Assemblercode auf den Bildschirm (oder Drucker) geschrieben. 


Da wir nicht davon ausgehen können, daß Sie Tag für Tag sehr 
viele Maschinenprogramme schreiben, haben wir einen Lerneffekt 
in unser 'Disassembler'-Proramm eingebaut: In Zeile 3530 steht 
eine DATA-Anweisung, gefolgt von meheren Hexadezimalzahlen. 
Diese Zahlen sind ein kleines Maschinenprogramm, in dem zwei 
Zahlen zusammengezählt und an einer bestimmten Speicherstelle 
abgelegt werden. Sie können sich die Umwandlung dieser Zahlen in 
ein Assemblerprogramm anschauen, indem Sie nach dem Pro- 
grammstart auf alle Fragen ohne weitere Eingabe nur mit (ENTER) 
antworten. 


Sie können nun auch andere Zahlen (in hexadezimaler Form, 
bitte!) in die DATA-Zeile schreiben - oder Sie finden ein län- 
geres Maschinenprogramm für Z80A-Prozessor in einer Computer- 
zeitschrift ... Sie können auch ruhig mehrere DATA-Zeilen mit 
Zahlen anfüllen ... Viel Spaß dabei! 
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ig REM Disassembler 
28 REM CPC464 Basic Programme 
38 REM Copyright 1984 DATA BECKER %& 
Rainer Lueers 
AR CLEAR 
Ss@ß REM Speicherplatz ab 43776 fuer 
Maschinenroutinen frei halten 
&2 MEMORY 43775:GOSUB 34598 
7@ DIM i$(255),b1 (255) 2n=ß:m=Q:sy=1 
809 GOTO 1289 
928 MODE 2:c=@:PRINT TAB{28)"x x 3 Z-84 
Disassembler 3 x x" 
12@ REM Wuensche des Benutzers 
abklaeren 
112 PRINT: INPUT "Titel ";f$ 
128 IF LEN(f$)>828 THEN GOTO 118 
1324 PRINT 
1429 REM Anfangsadresse der 
abgespeicherten Maschinenroutine 
in DATA-Zeilen 
159 INPUT "Startadresse (in Dez.) "za:lfF 
a<@ OR a>65535 THEN GOTO 138 ELSE IF a= 
8 THEN a=43776 
162 INPUT "Endadresse (in Dez.) ":b 
172 IF bie OR b>65535 OR b<@ THEN GOTO 1 
62 ELSE IF b=8 THEN b=zaehleri 
182 PRINT: INPUT "Datafelder vorhanden (J 
/I) "ıv$ 
198 v$=LEFT$(UPPER$ (v$) ,1): IF v$="J" THE 
N GOSUR 2148 
z@4 PRINT: INPUT "Drucker oder Bildschirm 
{D/RB) "sb$ 
212 REM Festlegen der Variable ”’drubi’, 
die fuer die Ansprache des 
PRINT-Befehls zustaendig ist: 
8 -> Drucker, 9 -> Bildschirm 
222 b$=LEFT$(UPPER$(b$) ,1): IF b$="D" THE 
N drubi=8 ELSE drubi=g 
2309 FRINT #drubi 


=. 172: = 


248 REM UVeberschrift = Titel, der durch 
die Formel in der Mitte der 
Zeile erscheint 

252 FRINT #drubi ,TAB((89-LEN{f$)) /2-9)#$ 

2623 PRINT #drubi 

27@ REM Beginn des eigentlichen 
Disassemblers. Sukksessives 
Einlesen des angegebenen 
Speicherbereichs und 
Interpretieren der Daten 
in Maschinenbefehle=Mnemoniks 

z82 q=a 

298 h1=INT (a/4996) :h2=INT ( (a-h184996) /25 

6) 

aga 11=INT ((a-h1%X49396-h24256) 7/16) 

3189 12=a-h1%49496-h24256-11416 

322 IF mi>f THEN GOTO 342 

339 GOTO 398 

349 IF a>r=atn) AND ai=b(n) THEN GOTO 564 

358 GOTO 398 

3629 d=PEEK (a) :G0OSUB FI8gd: f$="D":fl$="A": 

ghs="T":gl$="A'st$s=eistd):istd)="" 

37@8 IF a=b(n) THEN n=n+ti:m=m-1:G0T0 428 

388 GOTO A428 

398 d=PEEK (a) :G0OSUR 458 

480 v=d:GOSUR 2748 

418 dh$=h$:d1$=1%$ 

4294 IF h1>=1@ THEN GOTO 56% 

438 h1$=STR$(h1):h1$=MID$(h1$,2,10) 

a48 IF h2>=1@ THEN GOTO 579 

4598 h2$=STR$ (h2) :h2$=MID$ (h2$, 2,1) 

468 IF 11>=12@ THEN GOTO 588 

478 11$=STR$(11):11$=MID$ (11$,2,1) 

488 IF 12>=18 THEN G0T0O 598 

499 12$=5TR$ (12):12$=MID$ (12$,2,1) 

5@2 REM Ausgabe des disassemblierten 


Speicherbereichs 
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518 gt=gqgt+1:1IF qt>1285 THEN qt=2:FOR qi>=i 
TO 9:PRINT #drubi:NEXT qgi:GOSUR 3400:5y 
=s5y+t1:PRINT #drubi , TAR{39) "Seite";sy:PR 
INT $drubi:60T0 512 ELSE PRINT #drubi ,.g; 
LEN (dh$+d1$+teh$+tel$+fhs+f1l$+ghs+g1$) /23" 
Bytes"; TAR(18; 


528 PRINT #drubi „USING " rrremze on ni$ 
‚„h2$,11$,12$%;:PRINT #drubi," " 
52zPRINT #drubi „USING "!tttrıtınze on dns, 


di$,eh$,el$,fh$s,f1l$,gh$,g1%;: :PRINT #drub 
1, TAB(S@)zi$(d) 
530 asati:c=c+t1:IF a>=b+1 THEN GOTO 628 
542 IF gh$="T" THEN i$(d)=t$ 
552 GOTO 289 
5623 »=h1-19+65:h1$=CHR$ (x) :GOTO 448 
578 »=h2-19+65:h2$=CHR$ (x) :G0TO 468 
5988 x=11-19+65:11$=CHR$ (x) :GOTO 4828 
598 »=12-19+65:12$=CHR$ (x) :G0OTO 512 
6@E@ FRINT:FRINT "X % Ausdruck fertig % 
x" 
6i@ REM Frage nach eventuellem 
Neustart 
629 PRINT: INPUT "Nochmal (J/ ) "3b$:b$=L 
EFT$(UPPER$ (b$),1) 
6324 IF b$="J" THEN RUN 
6429 END 
658 IF d<64 OR d>127 THEN GOTO 714 
&6f IF d=118 THEN RETURN 
678 dh=INT (d/16) :d1=d-dht16 
6824 g=di AND 7:f=((d AND 56)/8) 
692 i$td)="LD "+js(f)+"," 
728 i$(d)=i$(d)+j$(g) :GOSUR SI82: RETURN 
zı@ IF d<128 OR d>191 THEN GOTO 832 
728 dh=INT (d/16) :d1l=d-(dh#16) 
739 g=di AND 7:f=((d AND 129)/89) 


7a8 IF #=8 THEN i$(d)="ADD A,” 
7598 IF #f=1 THEN i$td)="ADC A,” 
768 IF #=2 THEN i$(d)="SUR = 
778 IF #=3 THEN i$(d)="SEC A," 
7828 IF f=4 THEN i$(d)="AND ke 
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798 IF #=5 THEN i$(d)="XOR ” 

Bag IF f=6 THEN i$td)="OR = 

si@ IF #=7 THEN i$td)="CP H 

828 i$td)=is$td)+j$(g) :GOSUB F384: RETURN 
8324 IF b1{d)=1 THEN GOTO 888 

844 IF biltd)=2 THEN GOTO 898 

8598 IF b1itd)=3 THEN GOTO 998 

868 IF bi(d)=4 THEN GOTO 1779 

878 IF d=221 OR d=253 THEN GOTO 2229 
888 GOSURB 3382: RETURN 

898 a=sati:z=PEEK (a) :GOTO 918 

928 a=sati:z=PEEK (a) :asatti:zi=PEEK (a) 

919 v=2:G0OSUR 2740: eh$=h$:el$=1$ 

922 IF bl{id)=3 THEN GOTO 949 

934 GOSUB 3399:6G0T0 954 

948 v=z1:G05SUR 2749: fh$=hs:f1$=1$ 

9528 pi$=fh$s+tfl$+teh$tel$:p?$=eh$+tel$:gh$= 
""zgl$="" 

962 f=d AND 7:g=d AND 56:g9=9/8 

978 IF f=6 AND (d AND 192)=8 THEN GOTO 1 
23a 

9824 IF #=2 AND (d AND 192)=192 THEN GOTO 
1268 

9972 IF f=4 THEN GOTO 1278 

iaaa IF f=@ AND (gX>2) THEN GOTO 1248 


1219 i$(35)="LD HL,"+p1$ 

1229 i$(34)="LD ("+pi1$+"),HL" 
1293594 i$(59)="LD ("+pi1$+"),A" 

1848 1$ (225) ="CALL "+pi$ 

194598 i1$(195)="JP "+pi$ 

12628 i$(58)="LD A, ("+tpisr")" 

1878 i1$(254)="CP "+p2$ 

1288 i$(42)="LD HL, ("+p1$+")" 
1992 i1$(49)="LD SP,"+pi$ 

11929 i$(17)="LD DE,"+pi1$ 

1118 i$(16)="DJNZ "+p2$ 

11228 i$(1)="LD BC, "+pi$ 

1132 1$(198)="ADD A,"+p2$ 

1148 i$(296)="ADC A,"+p2$ 


1159 i1$(211)="0UT "+p2$+",A" 
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1169 i$(214)="SUR "+p2$ 


11724 i$(219)="IN A,"+p2$ 

1188 i$(222)="SBC A,"+p2$% 

1198 i$(2IQ@)="AND "+n2$% 

1298 i$1238)="XOR "+p2$ 

1219 i$(246)="OR "+p2$ 

1228 RETURN 

12398 i$(d)="LD "+j$(g)+","+p2$:RE 
TURN 

1248 IF q=3 THEN i$(d)="JR "4+p2$: 
RETURN 

1259 g=g-4:i$(d)="JR "456 (g)+","+ 
P2$: RETURN 

1268 i$(d)="JP "+5$(g)+","+p1$:RE 
TURN 

1278 i$td)="CALL "+45$(g)+","+p1$:RE 
TURN 


12829 FOR s=# TO 63:bl (s)=1:NEXT s 
1298 FOR s=192 TO 255:bl(s)=1:NEXT s 
13988 b1(118)=1:bl (6)=2:b1 (14)=2:bl (16) = 
EB een ae 
38)=2:b1(49)=2:b1 (46) =2:b1 (48) =2:b1 (54) = 
2:b1 (56)=2 

1318 b1(62)=2:b1 (198) =2:bl (296) =2:bl (211 
)=2:b1l (214)=2:bl (219)=2:bl (222) =2:b1 (239 
)=2:b1 (238)=2:bl (246) =2:bl (254)=2 
1322 b1(1)=3:b1(17)=3:b1 (I3) =T:bl (34)=3: 
b1 (42)=3:b1 (49)=3:b1 (59) =3:b1 (58)=T:bl (1 
974)=3:b1 (195) =3:b1 (196) =3:bl (292)=I:bl (2 
94)=3:b1 (2985)=3:bl (218)=3:b1 (212)=3 
18 :b1 (229)=3 
1339 b1 (226)=3:b1 (228)=3:b1 (2534)=I:b1 (23 
6)=3:b1 (242)=3:b1 (244)=3:bl (2598)=3:b1 (25 
2)=3:b1 (283)=3:b1 (237)=3:b1 (221)=@:b1l (25 
3)= 

1342 3$(98)="B":j$(1)="C"2j$(2)="D"2jslT 
="E"rj$(4)="H":j$(5)="L" 
13529 3$5(6)="(HL)"2 j$(7)="A" 
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1368 S$(M="NZ":S$(1)="Z":s$(2I="NC":s$t 
B)="C":5$(4)="PO":5$(5)="PE":S$(6)="P":s 
SINI="M" 


1378 p$(9)="SBC HL,":p$(1)="ADC 
HL," 

1389 p$(2)="SBC HL,":p$(3)="ADC 
HL," 

1390 p$(4)="SBC HL,":p$(5)="ADC 
HL," 

1409 p$(7)="ADC HL,"2n$(2)="BC":n$ 


(1)="BC":n$(2)="DE" 

1418 n$(2)="DE”":n$(4)="HL"=2n$(5)="HL":n$ 
(T)="SP" 

1422 1$(8)="N":1$(1)="I":m$(B)="Q"2m$(2) 
="1"sm$(I)="2" 

1438 0$(8)="1,A"20$(1)="R,A"20$(2)="A,TI" 
0$(F)="A,R" 

14428 g$(B)="LD"z:q$(1)="CP"2qg$(2)="IN":qg$ 
(DI="OUT"” 


1458 i$(@)="NOP":i$(2)="LD (BC) „A 
":i$(Z2)="INC BC" 
1462 i$(7)="RLC A":i$(B)="EX 
AF,AF’" 
1478 i$(9)="ADD HL,BC":i$(1@)="LD 
A, (BC) " 
1488 i$(11)="DEC BC":1$(15)="RRC 
A" 
1498 i$(18)="LD (DE) ,A":i$(19)="1 
NC DE" 
1522 1$(2I7)="RLA”:1$(25)="ADD HL,D 
E":1$(26)="LD A, (DE) ”" 
1512 i$(27)="DEC DE":i$(31)="RRA”: 
i$(i5y)="INC HL" 
1528 1$(3N="DAA":i$(41)="ADD HL,.H 
L":1$(43)="DEC HL" 
15328 1$(47)="CPL":1$(51)="INC sp": 
i$(55)="SCR" 
1548 1$(57)="ADD HL,SP"21$(59)="DE 
C SP"zi$(63)="CER" 
1552 1$(45)="DEC HL" 
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1698 


1619 


1628 
T 
1638 
x 
1648 
T 
1650 
166% 


:i$(245)="PUSH 


1678 
T 
1688 
RST 
1698 
1794 
H 
1719 
1729 
1739 
1749 


1759 


1768 


1$(192)="RET 
BC" 
i$(199)="RST 
Z":1$(287)="RST 
i$(2Q8)="RET 


DE" 
i$(21%)="PUSH 
19H" 
i$(216)="RET 
18H" 
i$(224)="RET 
(SP) „HL" 
i$(2I1)="RST 
PE" 
i$(23X)="JP 
DE,HL" 
i$(239)="RST 
pn 


i$(221)="RET" 

1$(241)="POP 

AF" 

i1$(247)="RST 
M":i1$(251)="EI" 

1$(249)="LD 


38H" 
i1$(1977)="PUSH 
1$(193)="POP 


HL" 
i$(225)="POP 
i$(21I="EXX" 
i$t118)="HALT" 
1=@:FOR d=S5 TO 45 


NZ"21$(197)="PUS 


8":1$(229)="RET 


8" 


NC":21$ (289)="POP 


DE":i$(2159)="RST 


C":i$(229)="RST 


FO":i$(227)="EX 


Z@H":i$(2I2)="RE 


(HL)":i1$(2359)="E 


28H":1$(242)="RE 


AF":1$(2453)="DI" 
SÖH":1$(248)="RE 


SP,HL":i1$ (2559) =" 


BC" 


BC":1$(229)="PUS 


HL" 


STEF 8:i$(d)="DEC 


"+3j$(1)z1=1+1:NEXT d 


1=2:FOR d=4 TO 44 


STEF 8:i1$(d)="INC 


"+3j$(1):1=1+1:NEXT d 


i$(68)="INC 


A":GOTO 98 


1778 


1798 


IF d=293 


a=-ati:z=FEEK(a) 


A":i$(6i)="DEC 


THEN GOTO 179% 
1788 IF d=237 THEN GOTO 


2958 
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19298 


eh=INT (z/16):el=z-ehtiö:g=el AND 7 


1818 f=INT((el AND 8) /8) :f=f+(eht2) :G0SU 
R 1838 

1828 GOTO 1988 

1838 IF #=8 THEN i$(d)="RLC ":RETU 
RN 

18468 IF #f=1 THEN i$(d)="RRC ":RETU 
RN 

1858 IF f=2 THEN i$(d)="RL "ZRETU 
RN 

1868 IF f=3 THEN i$(d)="RR "ZRETU 
RN 

1874 IF f=4 THEN i$(d)="SLA "ZRETU 
RN 

1888 IF f=5 THEN i$(d)="SRA "ZRETU 
RN 

18920 IF f=7 THEN i$(d)="SRL "ZRETU 
RN 

19@@ IF f>=8 AND f<=15 THEN GOTO 1949 
1918 IF f>=16 AND #f<i=2S THEN GOTO 1969 
19208 #=f AND 7:#$=CHR$ (f+48) 

1938 i$(d)="SET "+f$+", "RETURN 
1940 f=f AND 7:#$=CHR$ (f+48) 

1958 i$(d)="BIT "+£$+", "RETURN 
1968 #=f AND 7: f$=CHR$ (f+48) 

1978 i$td)="RES "+f$+", "RETURN 
1986 IF eh>=1@ THEN GOTO 2030 

1998 eh$=STR$ (eh) veh$=MID$ (eh$, 2,1) 

zeaa IF el>=1@ THEN GOTO 2949 

Z@19 el$=STR$(el)zel$=MID$(el$,2,1) 

Ze20 GOSUR 339@:i1$(d)=i$(d)+j%(g) RETURN 
2938 »=eh+55: eh$=CHR$ (x):60T0 200q 

2049 1=el+55:e1l$=CHR$(x):GOTO 2920 

2a5@ IF d AND 7=5 THEN GOTO 28898 

z2g6M IF d AND 7=4 THEN GOTO 2988 

2976 GOTO 88% 

2088 1=d AND 56 

2298 qg=1/8 

Zı@M IF d AND 7=5 THEN i$(d)="DEC 


"+3$(g9):G60T0 2128 
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2112 i$td)="INC "+j$(g) 

21228 GOSUB 3388: RETURN 

2138 REM Unterprogramm zum Ausschliessen 
des Disassemblierens von 
bestimmten Speicherbereichen 

2148 n=1 

21528 INPUT "Startadr.="sain) 

zZ16@ INPUT "Endadr.=";b(n) 

2178 IF a(n)<a OR b{n)>b THEN GOTO 2158 

2188 INPUT "Noch ein Teil (J/ ) "z;v$ 

2198 v$=LEFT$(UPPER$ (v$),1) 


2228 IF v$="J3" THEN n=n+1:60T0 2159 


2218 m=n:n=1:RETURN 

2228 IF d=221 THEN v$="1X":60T0 2248 
2234 vs="1Y" 

22498 a=atl:z=PEEK(a) 

2259 IF z=283 THEN GOTO 2668 

2268 IF z>=79 AND z<=198 THEN GOTO 28148 
2278 IF z=33 OR z=34 OR z=42 THEN GOTO 2 
438 

2288 IF z=532 OR z=53 THEN GOTO 2534 

2298 IF z=54 THEN GOTO 2598 

23084 v=z:G0OSUR 27498: eh$=h$:el$=1$:GOSUR 
33974 

2318 IF z=9 THEN i$(d)="ADD "+v$+ 
"Be" 

2328 IF z=25 THEN i$(d)="ADD "+V$t 
"DE" 

2334 IF z=35 THEN i$(d)="INC "+v$ 
2348 IF z=41 THEN ı$(d)="ADD "+v$t 
"„"+v$ 

2358 IF z=43 THEN i$(d)="DEC "+v$ 
23689 IF z=57 THEN i$(d)="ADD "+v$+ 
"op" 

2378 IF z=225 THEN i$(d)="FPOP "+v$ 
2388 IF z=227 THEN i$(d)="EX (SP) 
s'+tv$ 

2398 IF z=229 THEN i$(d)="PUSH "+v$ 
24988 IF z=233 THEN i$td)="JP ["+V 
gs+r")" 
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2418 
+v$ 

2428 
2430 
2448 
2459 
2468 
2478 
2488 
2498 


IF z=249 THEN i$(d)="LD sp," 


RETURN 

v=z:G60SUB 2748 

eh$=h$:el$=1$ 
a=ati:z1=PEEK(a):v=z1:6G0SUR 2749 
fhs=h$: fl$=1$:a=atl 
zi=PEEK (a) :v=-z1:G6G0SUR 2748 
gh$=h$:gl$=1$ 

IF z=33 THEN i$(d)="LD "+v$+ 


" "+gh$+gl$+tfhs+fl$ 


2520 


IF z=34 THEN i$(d)="LD ("+gh 


$tgl$+tfhstfls+t"), "+V$ 


2519 


IF z=42 THEN i$(d)="LD "+vV$+ 


"t"+gh$+tgl$+tfhstflst")" 


u 
J 
[S} 


x 


ao 
rn 
Ss 8 


NN MM N N 
[n 
BP 
SQ 


RETURN 

v=z:605UB 2742: eh$=h$:el$=1$ 
a=sati:z1=PEEK(a):v=-z1:G0OSUR 2748 
fh$=hs: f1$=1$:ghs="":gl$="" 

IF z=52 THEN i$(d)="INC ("+V 


SH" +t+ehstflse")" 


2578 


IF z=53 THEN i$(d)="DEC ("+vV 


Srt+tsehstflse")" 


2594 
2598 
26089 
2618 
2629 
2638 
2648 


RETURN 

v=z2:6G0SUR 2740: eh$=h$:el$=1$ 
a=sat1:z1i=PEEK(a):v=-z1:G0OSUR 2748 
fh$s=h$: f1l$=]1$:a=atl 
zi=PEEK(a):v=-z1:G0SUR 27428 
gh$s=h$:gl1$=1%$ 

i$(d)="LD ("Y+vS+t"+"+fhstflst 


"),"+gh$+gl1$ 


26358 
2668 
2678 
2682 
2698 
2708 
27182 
2728 


RETURN 
a=za+1:eh$=CHR$ (67) zel $=CHR$ (66) 
v=PEEK (a) :GOSUB 7748 

fh$=h$: f1$=1$ 

a=sat1i:z2=PEEK(a):o=z2 AND 248:0=0/8 
gs="("+v$r"+"t+trhstflsHt")" 

f=0:605UR 1838 

i$(d)=i$std)+tg$ 
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N 
[4 
SQ 


v=22:G0SUB 2748: gh$=h$:qg1$=1$:RETUR 


744 h=1INT (v/16):1=v-(ht16) 

758 IF h>=1i@g GOTO 2798 

768 h$=STR$ (h) :h$=MID$(h$, 2,1) 

2778 IF 1>=18 THEN GOTO 2828 

27824 1$=STR$(1):1$=MID$ (1$,2,1) RETURN 
2798 »1=h+55:h$=CHR$ (x1):60T0 2778 

28922 x1=1+55:1$=CHR$ (x1) :RETURN 

2818 v=z:G0OSUR 2748: eh$=h$:el$=1$:ghs="" 
.gl$="" 

2829 a=at1:z1=PEEK(a) 

2838 v=z1:G0SUB 2748: fh$=hs: fl$=1$ 

28428 IF z=126 THEN i$(d)="LD A," 
+v$+t"+"+fhs+tfl$+") "RETURN 

2852 p=z AND 249 

28658 IF p=112 THEN G0OTO 29928 

2878 IF p>=128 THEN GOTO 2928 

289828 p=z AND 565:p=p/8:60SUR 3298 

2892 i$(d)="LD "+gs+t", ("+Vvst"+"+f 
h$+tfl$+")":RETURN 

29298 p=z AND 7:GOSUR 3294 

2918 i$(d)="LD ("+Vvs+t"+"+fhs+tfl$t 
"),"+g$:RETURN 

2928 p=z AND 56:p=p/8:G6G0SUR 298 

2938 i$ld)=Sisld)+tvstr" +" +trhstrrfigHr")" 

297428 RETURN 

29528 a=zati:z=PEEK (a): v=-2:6G0SUB 274@:eh$= 
h$:el$=1$ 

2962 IF z=67 OR z=75 OR z=8I OR z=91 OR 
z=115 OR z=123 THEN GOTO 3298 

2978 GOSUB 3394: f=z AND ?48:qg=z AND 7 
2988 IF f=168 THEN GOTO 3168 

2998 IF f=168 THEN GOTO 3178 

32288 IF f=176 THEN GOTO 3188 

3218 IF f=184 THEN GOTO 3198 

S@29 f=z AND S6:f=f/8:g=z AND 7 

SBIB IF f=6 THEN i$(d)="SBC HL,SP" 
: RETURN 


NND N ZN 
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32A2 


IF qg=®8 THEN i$(d)="IN "+j$(f 


)+",<C) "RETURN 


3258 


IF g=1 THEN i$(d)="OUT (C),"+ 


3$(f) RETURN 


3062 
N 

3078 
3080 
N 

3094 
N 

3108 
31182 
Ss122 
3132 
3148 
3159 
3169 
172 
31828 
3198 
3298 


$=h$: 


3218 


$=h$: 


20 
3 


2 


72 
“ac 
= 

32 


$+"), 


3249 


IF g=2 THEN i${d)=p$(f)+n$(f) :RETUR 


IF qg=4 THEN i$(d)="NEG":RETURN 
IF g=5 THEN i$(d)="RET"+1$(f) :RETUR 


IF g=6 THEN i${d)="IM "+m$(f) :RETUR 


IF g9<>7 THEN i$(d)="* & x":RETURN 
IF f<=3 THEN GOTO 3158 

IF #=4 THEN i$(d)="RRD":RETURN 

IF #=5 THEN i$td)="RLD":RETURN 
GOTO 3128 

i$(d)="LD "+0$ (f) :RETURN 
i$(d)=q${g)+"I":RETURN 
i$td)=g$(g) +"D": RETURN 
i$(d)=q$(g) +" IR":RETURN 

i$(d)=g$(g) +"DR":RETURN 
asati:zi=PEEK(a):v=z1:G6G0SUB 2749: fh 
f1$=1$ 

a=sati:zi=PEEK(a):v=z1:605SUB 2748:gh 
gl$=1$ 

gg$=gh$+tgl$+fhs+fl$ 

IF z=67 THEN i$(d)="LD ("+gg 
BC": RETURN 

IF z=75 THEN i$(d)="LD BC," 


+gg$+")": RETURN 


3258 


$+"), 


3268 


IF z=83 THEN i$td)="LD ("+gg 
DE": RETURN 
IF z=91 THEN i$(d)="LD DE,” 


+gg$+")": RETURN 


3279 


IF z=115 THEN i$(d)="LD ("+g 


g$+"),SP":RETURN 


3282 


IF z=123 THEN i$(d)="LD SP,t 


"+gg$+") "RETURN 


3298 


IF p=@2 THEN g$="RB":1$(d)="ADD 


A,c" 
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33928 IF p=1 THEN g$="C":i$(d)="ADC 
A, g" 


312 IF p=2 THEN g$="D":i$(d)="SUR { 
3328 IF p=3 THEN g$="E":i$(d)="SBC A 
„er 

33320 IF p=4 THEN g$="H":i$(d)="AND Ä 
3348 IF p=5 THEN g$="L":i$(d)="XOR ( 


3358 IF p=6 THEN g$s="HRX":i$(d)="OR 


Ä 
FS6R IF p=7 THEN g$="A'":is(d)="CP Ä 


3378 RETURN 

3388 eh$="":el$=""sfh$=""sfl$=""nghs="": 

gl$="":RETURN 

3398 fhs="":f1$=""2gh$="":gl$="":RETURN 

3428 PRINT #drubi :RETURN 

3418 PRINT #drubi:gqgt=f:sy=1 

342@ PRINT #drubi :RETURN 

3434 REM Ende der 
Unterprogrammbibliothek zur 
Erzeugung des Assemblercodes 

3448 REM Ueberpruefung der Anzahl der zu 
disassemblierenden Bytes 
(hexadezimale Eingabe) in den 
DATA-Zeilen 

3459 ON ERROR GOTO 3542:FOR zaehler1=4537 

7& TO 65535:READ a$:NEXT zaehleri 

3469 REM Eigentliches Einlesen der 
Bytes in der DATA-Zeile in 
den Speicher ab 453776 


3478 RESTORE:FOR m=43776 TO zaehleri-1 
348274 READ a$ 


498 a=VAL("Kh"+a$) 

s5a2g FOKE m,a 

14 NEXT m:POKE m,%&C7 

28 RETURN 

38 DATA 3e,%4,26,07,89,32,22,7d 
48 RESUME 3478 - 184 


32 bis 126: normaler ASCII-Zeichensatz (s.Handbuch An.III,S.1) 


128 AFTER 129 AUTO 130 BORDER 131 CALL 

132 CAT 133 CHAIN 134 CLEAR 135 CLG 

136 CLOSEIN 137 CLOSEOUT 138 CLS 139 CONT 

140 DATA 141 DEF 142 DEFINT 143 DEFREAL 
144 DEFSTR 145 DEG 146 DELETE 147 DIM 

148 DRAW 149 DRAWR 150 EDIT 151 ELSE 

152 END 153 ENT 154 ENV 155 ERASE 
156 ERROR 157 EVERY 158 FOR 159 GOSUB 
160 GOTO 161 IF 162 INK 163 INPUT 
164 KEY 165 LET 166 LINE 167 LIST 

168 LOAD 169 LOCATE 170 MEMORY 171 MERGE 
172 MID$ 173 MODE 174 MOVE 175 MOVER 
176 NEXT 177 NEW 178 ON 179 ON BREAK 
180 ON ERROR GOTO 0 181 ON SQ 182 OPENIN 
183 OPENOUT 184 ORIGIN 185 OUT 186 PAPER 
187 PEN 188 PLOT 189 PLOTR 190 POKE 

191 PRINT 192 " (nicht ASCII, sondern Befehl 'REM') 
193 RAD 194 RANDOMIZE 195 READ 196 RELEASE 
197 REM 198 RENUM 199 RESTORE 200 RESUME 
201 RETURN 202 RUN 203 SAVE 204 SOUND 
205 SPEED 206 STOP 207 SYMBOL 208 TAG 

209 TAGOFF 210 TROFF 211 TRON 212 WAIT 

213 WEND 214 WHILE 215 WIDTH 216 WINDOW 
217 WRITE 218 ZONE 219 DI 220 EI 

221 bis 226: keine direkt sichtbaren Tokens 

227 ERL 228 FN 229 SPC 230 STEP 

231 SWAP 232 und 233: siehe 221 234 TAB 

235 THEN 236 TO 237 USING 238 2 (Rechnung 
239 = (Rech.) 2402 = (Re.) 241 & (Rech.) 242 C> (Rechnung 
243<= (Re.) 244 + (Re.) 245 - (Rech.) 246 * (Rechnung 
247 / (Rech.) 248 N (Re.) 249 N (Rech.) 250 AND 

251 MOD 252 OR 253 XOR 254 NOT 

Mit dem Vorzeichen '255' entstehen folgende Befehlswörter: 
0 ABS 1. ASC 2 ATN 3 CHR$ 

4 CINT 5 cos 6 CREAL 7 EXP 

8 FIX 9 FRE 10 INKEY 11 INP 

12 INT 13 JOY 14 LEN 15 LOG 

16 LOG1O 17 LOWER$ 18 PEEK 19 REMAIN 
20 SGN 21 SIN 22 SPACE$ 23 SQ 

24 SQR 25 STR$ 26 TAN 27 UNT 

28 UPPER$ 29 VAL 

30 bis 63: keine direkt sichtbaren Tokens 

64 EOF 65 ERR 66 HIMEM 67 INKEY$ 
68 PI 69 RND 70 TIME 1 XPOS 

72 YPOS 73 bis 112: keine direkt sichtaren Tokens 
113 BIN$ 114 DEC$ 115 HEX$ 116 INSTR 
117 LEFT$ 118 MAX 119 MIN 120 POS 

121 RIGHT$ 122 ROUND 123 STRING$ 124 TEST 

125 TESTR 126 nicht sichtbar 127 VPOS 
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Mit dem neuen DATA BECKER Einsteiger- 
buch den brandneuen CPC 464 kennen- 
lernen. 

Wer sich für den brandneuen Schneider- 
Homecomputer CPC 464 entschieden hat, 
findet mit dem DATA BECKER Buch 

„CPC 464 für Einsteiger“ gleich den 
richtigen Start. Neben den wichtigsten Hin- 
weisen über Handhabung und Anschluß- 
möglichkeiten bringt das Buch erste Hilfen 
für eigene Programme auf dem CPC 464. 
Zahlreiche Abbildungen und Bildschirm- 
fotos ergänzen den Text. Das ideale Buch 
für jeden, der mit dem CPC 464 das 
Computern beginnen will. 

CPC 464 FÜR EINSTEIGER, 1984, 

über 200 Seiten, DM 29,- 


Der CPC 4864 ist nicht nur zum Spielen da 
Das neue Schulbuch zum CPC 464 von 
Professor Voß enthält, didaktisch gut auf- 
bereitet, viele interessante Problem- 
lösungs- und Lernprogramme (quadra- 
tische Gleichungen, exponentielles 
Wachstum, Geschichtszahlen, engl. Voka- 
bein lernen und vieles mehr). Dieses Buch 
ist nicht nur für Schüler bestens geeignet, 
sondern für jeden, der in die Programmie- 
rung wissenschaftlicher Probleme einstei- 
gen will. 

DAS SCHULBUCH ZUM CPC 464, 1984, 
ca. 380 Seiten, DM 49,- 


Viele Tips und Tricks rund um den 

CPC 464 

Vom Hardwareaufbau, Betriebssystem, 
Basic-Tokens, Zeichnen mit dem Joystick, 
Anwendungen der Windowtechnologie 
und sehr vielen interessanten Programmeı 
wie einer umfangreichen Dateiverwaltung, 
Soundeditor, komfortablen Zeichengene- 
rator bis zu kompletten Listings spannen- 
der Spiele bietet das Buch viele Anre- 
gungen und wichtige Hilfen. Diese riesige 
Fundgrube sollte jeder CPC 464-Besitzer 
haben! 

CPC 464 TIPS & TRICKS, 1984, 

über 250 Seiten, DM 39,- 


DAS STEHT DRIN: 

Dieses Buch enthält Spitzenprogramme, vom Dis- 
assembler bis zum Sporttabellenprogramm. Mit span- 
nenden Superspielen und kompletten Anwendungs- 
programmen. 


Aus dem u 


Soun editor 

— Deutsche Umlaute 

— Mathematikzeichensatz 

— Ausführliche Fehlermeldungen 

— Variablenreferenzliste 

— Kalender 

— Disassembler 
.angspielplattenverwaltung 

— Texteditor 

— Codeknacker 

— Zahlsystemumrechner 


UND GESCHRIEBEN HAT DIESES BUCH: 

Rainer Lüers ist Computer-Fachtrainer bei einer gro- 
Ben Kaufhauskette und erfahrener Autor mehrerer 
EDV-Bücher. 
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https://acpc.me/ 


